Thread wird nicht ausgeführt

[Klaus01]

dein Thread beendet sich ja sofort wieder.
[edit2] nein tut er nicht, er verharrt in der Schleife von doRefresh.

Delphi-Quellcode:

procedure TRefreshThread.Execute;
begin
  ShowForm; //Fehlerbeschreibung weiter unten
  Synchronize(doRefresh); //Fehlerbeschreibung weiter unten
end;

vielleicht funktioniert es ja so:

Delphi-Quellcode:

procedure TRefreshThread.Execute;
begin
  ShowForm; //Fehlerbeschreibung weiter unten
  while not terminated do
    begin
      Synchronize(doRefresh); //Fehlerbeschreibung weiter unten
      sleep(250);
    end;
end;

[edit]
das do refresh dann so umbauen:

Delphi-Quellcode:

procedure TRefreshThread.doRefresh;
begin
  Form2.Refresh;
  Form2.Repaint;
end;

Grüße
Klaus