In der Tabelle suchen

[Kleine]

Beim suchen vergeleich ich jetzt bestimmte spalten mitdem editfeld und lass den datensatz dann in einem memo ausgeben

nur hab ich jetzt ein weiteres problem..
wenn ich ein datensatz im grid auswähle,soll er mir die zusätzlichen kontaktdaten wie telefon usw in einer list box ausgeben.

Vorher war das grid auch eine list box und da sah der quelltext so aus

Delphi-Quellcode:

procedure TFormMain.AdresseListBoxClick(Sender: TObject);
var
  Adresse : tAdresse ;
begin
  Adresse :=  tAdresse( AdresseListBox.Items.Objects[ Adresselistbox.ItemIndex ] ) ;
  RefreshKontaktListe( adresse ) ;
end;

jetzt wollte ich das umändern und hab bisjetzt das

Delphi-Quellcode:

procedure TFormMain.GridAdressenCellClick(Column: TColumn);
var
   lAdresse : tAdresse;
   i : Integer;
begin

  for I := 0 to GridAdressen.SelectedRows.Count - 1 do
    begin
      lAdresse :=  tAdresse (GridAdressen.DataSource.DataSet[GridAdressen.SelectedRows[i]]);

      RefreshKontaktListe( lAdresse ) ;
    end;

end;

Nur leider hab ich überhaupt keine ahnung, wie er die kontaktdaten speziell zu dem ausgewählten datensatz ausgeben soll