Form1.KeyUp problem

[JnZn558]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
  FormColor := Form1.Color;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssCtrl in Shift then Form1.Color := clAqua;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if ssCtrl in Shift then Form1.Color := FormColor;
end;

mein problem hier ist, dass beim Form1.FormKeyUp Form1.Color nicht wieder hergestellt wird. heisst sozusagen Shift enthaelt ssCtrl nicht, aber warum, bei keydown geht das.