Процедура для отображения BalloonHint

[Shouldercannon]

Задача заключается в следующем. Из разных мест вызывать процедуру создания BalloonHint с передачей параметров.
Так создаётся BalloonHint

  BalloonHint1.Title := 'Ошибка';
  BalloonHint1.Description := 'Поле пусто';
  Point.X := ESingInLogin.Width Div 2;
  Point.Y := ESingInLogin.Height;
  BalloonHint1.ShowHint(ESingInLogin.ClientToScreen(Point));

Попытка реализации задуманного

procedure ShowBalloonHint(Title, Description: String; Point: TPoint; Control: TControl);

procedure TForm1.ShowBalloonHint(Title, Description: String;
  Point: TPoint; Control: TControl);
begin
  BalloonHint1.Title := Title;
  BalloonHint1.Description := Description;
  Point.X := ESingInLogin.Width Div 2; // Как передать?
  Point.Y := ESingInLogin.Height; // Как передать?
  BalloonHint1.ShowHint(ESingInLogin.ClientToScreen(Point)); // Как передать?
end;

И тут запоролся с передачей Point.X, Point.Y, Point. Или лучше наверно передать сам конрол и потом получить его поизцию

Решено

procedure ShowBalloonHint(Title, Description: String; Edit: TEdit);

procedure TForm1.ShowBalloonHint(Title, Description: String; Edit: TEdit);
var
  Point: TPoint;
begin
  BalloonHint1.Title := Title;
  BalloonHint1.Description := Description;
  Point.X := Edit.Width Div 2;
  Point.Y := Edit.Height;
  BalloonHint1.ShowHint(Edit.ClientToScreen(Point));
end;

ShowBalloonHint('Ошибка', 'Разрешены только латинские символы и цифры', Edit1);