Thread hängt wenn Listview Eintrag bekommt

[Piro]

Das OnTerminate Event habe ich eingebaut aber mit der Variableübergabe klappt es nicht so wirklich. Würdet ihr mir etwas mehr dazu sagen?

Delphi-Quellcode:

procedure Tfrm_main.OnThreadTerminate(Sender: TObject);
begin
 ShowMessage('Am Ende');
end;

procedure Tfrm_main.CheckServerStatus;
var
 Thread : MyThread;
begin
 for i := 0 to lv_server.Items.Count - 1 do
 begin
   Thread                 := MyThread.Create(True);
   Thread.art             := 'CheckServerStatus';
   Thread.server          := lv_server.Items[i].Caption;
   Thread.FreeOnTerminate := True;
   Thread.OnTerminate     := OnThreadTerminate;
   Thread.Resume;
 end;
 lbl_overview_servercheck.Caption := FormatDateTime('dd. mmmm yyyy hh:nn:ss', now);
end;

Wo müssen jetzt die Variablen hin damit ich sie im OnThreadTerminate verwenden kann?

Vielen Dank.