[AlexSku]

У компонентов используйте события OnMouseMove. Можно к каждому компоненту привязать свой обработчик:
S:= 'ListBox1';
потом используйте эту S. Можно один обработчик привязать ко всем компонентам:

Код:

procedure TForm1.ComponMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Sender is TListBox then
    S:= (Sender as TComponent).Name;
end;

(S: string)