Eigenschaften eines Objektes für ein paar Sekunden zuweisen

Hallo

ich möchte die farbe von dem Button für nur eine Sekunde (Rot)
und dann wieder die Originale Farbe zuweisen

Delphi-Quellcode:

			Button1.Color:=clRed;

//sleep(2000); // schlecht wie Delay() auch !

Pausen(1000); // das ist eine Funktion wie Sleep

Button1.Color:=clWhite;

Es funktioniert aber !!!
während dieser 2 Sekunden wird alles gefroren
das heißt mein Programm ist damit für 2 Sekunden lang tot

Wie kann ich die Farbe für 2 Sekunden ändern ohne das Programm zu stören?
Oder muss ich unbedingt einen Timer verwenden ?