Schleife zum Wiederholen eines Sources

[Uncle Cracker]

Du musst auch vor TMyThread= class(TThread) ein ';' setzten, also so:

Code:

TForm1 = class(TForm);
TMyThread = class(TThread)
    private
      { private-Deklarationen }
      protected
    procedure Execute; override;
   end;

...
procedure TMyThread.Execute;
begin
  while Not Terminated do
  { Deinen Code einfügen, der wiederholt werden soll }
end;