uses
Unit2;
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
topeTop: integer;
begin
Form2.Top := Screen.Height + Form2.Height;
Form2.Left := Screen.Width - Form2.Width - 4;
topeTop := Screen.Height - Form2.Height - 35;
Form2.Show;
i := Form2.Top;
while (i >= topeTop) do
begin
Form2.Top := i;
Dec(i, 1);
end;
end;