Animated window

procedure TForm1.FormShow(Sender: TObject);
begin
   AnimateWindow(Self.Handle, 1000, AW_CENTER);
end;