1 Button 2 ereignisse

[Maa83]

wieso nicht einfach in der Schleife ein Application.ProcessMessage?

Delphi-Quellcode:

var bMachWeiterDuArsch : Boolean;

procedure formcreate...
begin
    bMachWeiterDuArsch := False;
end;

procedure Button1Click(Sender : TObject);
begin
  bMachWeiterDuArsch := not bMachWeiterDuArsch;
  while bMachWeiterDuArsch do //Als Alternativbedingung natürlich das Ende der Punkte
  begin
    ZeichnePunkt(PosX,PosY);
    Application.ProcessMessage;
  end;
end;

geht natürlich auch mit repeat-Schleifen.

oder hab ich grad nen Denkfehler drin?