всплывающее окно "инфа о пользователе" + 2 дисплея

Monitor := Screen.MonitorFromPoint(Types.Point(Rect.Left, Rect.Top));
if Rect.Width > Monitor.Width then
  Rect.Width := Monitor.Width;
if Rect.Height > Monitor.Height then
  Rect.Height := Monitor.Height;
if Rect.Left + Rect.Width > Monitor.Left + Monitor.Width then
begin
  Rect.Left := (Monitor.Left + Monitor.Width) - Rect.Width;
  Rect.Right := Monitor.Left + Monitor.Width;
end;
if Rect.Left < Monitor.Left then
begin
  Rect.Right := Monitor.Left + Rect.Width;
  Rect.Left := Monitor.Left;
end;
if Rect.Top + Rect.Height > Monitor.Top + Monitor.Height then
begin
  Rect.Top := (Monitor.Top + Monitor.Height) - Rect.Height;
  Rect.Bottom := Monitor.Top + Monitor.Height;
end;
if Rect.Bottom < Monitor.Top then
begin
  Rect.Bottom := Monitor.Top + Rect.Height;
  Rect.Top := Monitor.Top;
end;