Richedit.Findetext liefert immer "-1"

[Lyan]

merke grade das es nicht geht.

Hat jemand eine Idee?

Ich hatte es so vor:

Delphi-Quellcode:

ipos := RichEdit2.FindText(':',0,length(richedit2.Lines[i]), tsearchs);
    sIP := copy(Richedit2.Lines[i],0,ipos-1);
    ipos := RichEdit2.FindText(':',length(sIP)+1,length(richedit2.Lines[i]), tsearchs);
    sUsr := copy(richedit2.lines[i],length(sIP)+1,ipos-1);
    iPos := Pos(#$D#$A,richedit1.lines[i]);
    spwd := copy(richedit2.Lines[i],length(sip)+length(susr)+2,ipos-1);
    richedit1.Lines.Delete(i);

MfG