[DOR]

Код:

procedure Tf_ABP.sbt_DeleteClick(Sender: TObject); 
var
t: TPoint; 
 begin  
  with Sender as TJvSpeedButton do  
   begin    pt := Classes.Point(Left, Top + Height);     
              pt := Parent.ClientToScreen(pt);   
   end;   
   forma1.top := pt.Y;
   forma1.left := pt.X;
   forma1.show;
end; 

Так?