Código Delphi [-] procedure TForm1.Button1Click(...) begin Form1.Color := clRed; Sleep(500); Form1.Color := clGreen; Sleep(500); Form1.Color := clYellow; { etc... } end;
procedure TForm1.Button1Click(...) begin Form1.Color := clRed; Sleep(500); Form1.Color := clGreen; Sleep(500); Form1.Color := clYellow; { etc... } end;