ListBox => ItemAtPos-Probleme

[Tommy1988]

Hallo D'ler.

Mit folgendem Code kann ich mir die Position eines Items in einer ListBox anzeigen lassen (PopUpMenu)

Delphi-Quellcode:

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
 Idx: Integer;
 Name: String;
begin
 Idx := ListBox1.ItemAtPos(Point(X,Y), True);
 if Idx<>-1 then
  begin
   Titel1.Caption := Format('%d', [Idx]);
   Name1.Caption := Format('%s', [Name]);
   Ordner1.Caption := Format('%s', [Dir]);
  end
 else
   Titel1.Caption := 'Keine Angabe';
   Name1.Caption := 'Keine Angabe';
   Ordner1.Caption := 'Keine Angabe';
end;

Das Problem besteht jetzt darin, dass ich nicht den Namen ([Name]) des Items und dessen
Speicherort ([Dir]) angezeigt bekomme.

Was mache ich falsch?