Nach Wert in Liste suchen - Index und alle anderen Einträge

[XXcD]

Ja ich versuch dir das mal weiter zu machen:

Delphi-Quellcode:

procedure TForm1.cmdBesitzerClick(Sender: TObject); 
var 
  besitzer: string; 
  pAuto: IAuto; 
  i: Integer; 
begin 
  i := 0; 
  edBesitzer.Text := besitzer; 
  for i := 0 to AutoList.Count do 
  begin 
    pAuto := AutoList.Items[i]; 
    if pAuto.ErgebnisName='Mustermann' then //Mustermann ist der String de rgesucht wird
     begin
     besitzer := pAuto.ErgebnisName; 
     break;//Wenn gefunden, dann Schleife unterbrechen
     end;
  end; 
  if Besitzer<>'' then
  begin
  //gefunden
  end;
  edBesitzer.Text := pAuto.ErgebnisName; 
  edKW.Text := FloatToStr(pAuto.ErgebnisKW); 
  edPS.Text := FloatToStr(pAuto.ErgebnisPS); 
end;

So sollte das ganze funktionieren.