Delphi form rengi

Forma tıklayınca kırmızı,tıklamaya bitirince eski rengini alan kod=

var

Form1: TForm1;

FormColor: TColor;

procedure TForm1.FormCreate(Sender: TObject);

begin

KeyPreview := True;

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

if Key = VK_F1 then

begin

FormColor := Form1.Color;

Form1.Color := clAqua;

end;

end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

if Key = VK_F1 then

Form1.Color := FormColor;

end;