У компонентов используйте события 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)