Licht wie Blitz auf Form erzeugen

[fLaSh11]

schreib doch clWhite anstatt irgendwelchen HexCodes

also ich würde das so machen: (meist blitzt eine Kamera ja mehrmals)

Delphi-Quellcode:

var
  color: TColor;

begin
color := Form1.Color;

Form1.Color:=clWhite;
Application.ProcessMessages;
sleep(100);

Form1.Color := color;
Application.ProcessMessages;
sleep(50);

Form1.Color:=clWhite;
Application.ProcessMessages;
sleep(100);

Form1.Color := color;
end;

(Delay wäre auch möglich...)