Form vorm schliessen von L nach R und R nach L verkleinern

[Pseudemys Nelsoni]

hi,

ich möchte das vor dem schliessen meines forms das das fenster von links nach rechts und von rechts nach links, immer 1 pixel kleiner wird (per timer), bis es ganz verschwunden ist (danach wird closed)...aber wenn ich das so mache:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Left := form1.Left+1;
  Form1.Width := Form1.Width-1;
end;

wird nur von links nach rechts verkleinert....wenn ich es so mache:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Width := Form1.Width-1;
  Form1.Position := poScreenCenter;
end;

dann klappt das mit der grösse zwar, aber flackert wie sau

hat jemand ne idee ?

gruss silent