Mehrere String bei teilstringsuche ausgeben

[benni1234]

Ich möchte gerne alle gefundenen strings irgentwo speichern und dann ausgeben,die nicht zutreffenedn string sollen nicht angezeigt werden
das alles sollte bei einem klick passieren.
ich stehe gerade auf nem schlauch und komme nicht weiter hoffe auf eure unterstützung

dbgrid1.DataSource.DataSet.RecNo:=i;
daten[i-1] := adoquery1.Fieldbyname('Matchcode').AsString;

end;

z:=0;

x := UpperCase(suchen.Text);

for i := 0 To 165 Do

if posex(x, UpperCase(daten[i]),k) <> z then
begin

dbgrid1.DataSource.DataSet.RecNo:=(i+1) ;
(....)
Auswertungskennzeichen.Text:=adoquery1.FieldByName ('Auswertungskennzeichen').AsString;
(...)
end;
else

begin
end;
end;