Узнать имя компонента зная его координаты на форме

VAR
  I, TM, ME: Integer;
  N: STRING;
BEGIN
  TM    := 0;
  ME    := TPanel(Sender).Top;  // ME:=  координатa TOP текущей панели
  FOR I    := 0 TO Self.pnlContainer.ControlCount    - 1 DO
    IF (Self.pnlContainer.Controls[I].Top    > TM)
    AND (Self.pnlContainer.Controls[I].Top    < ME) THEN
    BEGIN
      TM    := Self.pnlContainer.Controls[I].Top;
      N    := Self.pnlContainer.Controls[I].Name;
    END;
  ShowMessage('Панель"'    + N    + '" надомной.');
END;