Also diese Beispiel funktioneirt bei mir:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i:Byte;
begin
i:=2;
if pos(listbox1.Items[i],listbox2.Items.Text) > 0 then
begin
showMessage(listbox1.Items[i]);
end;
end;
pos liefert 0 zurück wenn der String nicht in dem anderen String vorhanden ist.
Bitte einmal die Delphi Hilfe konsultieren.
Grüße
Klaus