procedure TForm.FormShow(Sender: TObject);
var
VL_Point:TPoint;
begin
GetCursorPos(VL_Point);
if VL_Point.x-Width>=0 then
Left:=VL_Point.x-Width
else
Left:=0;
if Screen.Height-VL_Point.y>Height then
Top:=VL_Point.y
else
Top:=VL_Point.y-Height;
Show;
end;