Hallo eleonora,
wenn der Code funktioniert, fresse ich einen Besen
.
for i := 0 to OpenDialog.Lines.count-1 do ...
OpenDialog.Lines gibt's doch gar nicht.
Es ist aber korrekt, das der von mir gepostete Code nicht an die Stelle im Memo gesprungen ist, an dem die Zeichenreihe gefunden wurde. Er hat nur die Zeile ausgegeben, in der der Suchstring erhalten war.