1:
2:
3:
4:
5:
6:
7:

var i: Integer;
begin
  For i := 0 To ListBox1.Items.Count-1 Do
  Begin
    Button1.Hint := Button1.Hint + ListBox1.Items[i]+#13;
  End;
End;					

1:
2:
3:
4:
5:
6:
7:

Procedure TF_Main.LB_LogMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Begin
    Try
        LB_Log.Hint := LB_Log.Items.Strings[LB_Log.ItemAtPos(Point(X, Y), True)]; // Passenden Hint setzen
    Except
    End;
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  aIndex: integer;
begin
  aIndex := ListBox1.ItemAtPos(Point(X, Y), True);
  if aIndex <> -1 then//ist Item unter der Maus?
    begin
    Hint:= ListBox1.Items[aIndex];
    end
    else
      Application.CancelHint;
  //ist anderes Item als das im Tag gespeicherte unter der Maus?
  if aIndex <> ListBox1.Tag then
    begin
      Application.CancelHint;
      ListBox1.Tag := aIndex;
    end;
end;