Schleife zum Wiederholen eines Sources

[davidwittesz]

Delphi-Quellcode:

procedure TMyThread.Execute; 
begin 
  while Not Terminated do 
  [U]procedure TForm1.Button1Click(Sender: TObject);[/U] 
var 
  i : Integer; 
  w : hWnd; 
begin

__________________________________________________ ______________________

kann es sein das der unterstrichene butten da nicht hingehört und deshalb das programm nicht laufen will ?

mfg whitey