Thread hängt wenn Listview Eintrag bekommt

[NickelM]

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