procedure TMyThread.Execute;
begin
while not Terminated do
begin
if Assigned(FForm) then
begin
if not FForm.Showing then
FForm.Show;
end;
Sleep(100);
end;
end;