Wenn in der ListBox die Namen stehen, könnte man das auch so in der Art lösen (ungetestet):
Delphi-Quellcode:
Ini := TIniFile.Create('...');
try
Label1.Caption := Ini.ReadString(ListBoxName.Items[ListBoxName.ItemIndex], 'Nummer', '');
Label2.Caption := Ini.ReadString(ListBoxName.Items[ListBoxName.ItemIndex], 'Stadort', '');
finally
FreeAndNil(Ini);
end;
Nachtrag: Fehler korrigiert