Hallo,
zuerst mal, Du kannst Deine Beiträge editieren.
Nun zu Deinem Problem: IndexOf gibt nur eine Zeilennummer zurück, wenn der übergebene String exakt der Zeile entspricht. Das wird bei Dir nicht der Fall sein.
Versuch mal Folgendes:
Delphi-Quellcode:
procedure TForm2.Button3Click(Sender: TObject);
var
ZeilenNummer: Integer;
begin
for ZeilenNummer := 0 to advmemo1.lines.Count - 1 do // Sämtliche Zeilen durchgehen
if Pos('Test', advmemo1.Lines[ZeilenNummer]) > 0) then // ist gesuchter Begriff in Zeile?
begin
ShowMessage(IntToStr(ZeilenNummer)); // Ausgeben..
Exit; // ...und raus
end;
ShowMessage('Zeile nicht gefunden!'); // Nichts gefunden
end;
Gruß
xaromz