Работа с потоками

[den49]

Здравствуйте, подскажите пожалуйста что в коде не так. НАдо создать поток через CreateThread, который прочитает текстовый файл.(потом его надо сравнить с другим и вывести результаты сравнения, но сейчас это не важно.) для передачи созданному потоку 2 переменных(по-другому не придумал) делаю структуру и в ней передаю. Но выдает ошибку при запуске потока: access vialation at ...: write of address...

type
  TThread_Value = record
    component:TMemo;
    filename:string;
  end;

.....

var
  Form1: TForm1;
  GetFile:THandle;
  ThreadID1,:Cardinal;
  Thread_Value1:TThread_Value;

implementation

{$R *.dfm}
procedure SetText(Thread_ValueN:TThread_Value);   stdcall;
Var f:TextFile;
st:String;
begin
  AssignFile(f,Thread_ValueN.filename); 
  Reset(f); 
  if IOResult<>0 then 
  begin
    ShowMessage('Îøèáêà îòêðûòèÿ ôàéëà ' + Thread_ValueN.filename);
    Exit;
  end;
  While not EOF(f) do
  begin
    ReadLn(f,st); 
  end;
Thread_ValueN.component.Lines.LoadFromFile(Thread_ValueN.filename);
CloseFile(f); 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Opendialog1.Execute;
  Thread_Value1.filename:=OpenDialog1.FileName;
  Thread_Value1.component:=Memo1;
  GetFile := CreateThread(NIL, 0, @SetText, @Thread_Value1, 0, ThreadID1);
end;
end.