Como Lograr el Efecto PopUp Menu del Messenger????

[dec]

Hola,

A ver qué les parece:

Código Delphi [-]
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);
     //Dec(i, 2);
     //Dec(i, 3);
   end;
 end;