String position in Richedit auslesen

[thomas2009]

Hi

ich versehe nicht, warum mein Code manchmal die Position von dem gefundenen String nicht korrekt zeigt !
Hier ist ein Beispiel. Der Code sucht nach der String-Position, was ich in Edit eingebe. Und zeigt die Positionen in Listbox (Zeile Nummer und Position):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i,p : Integer;
begin
for i:=0 to RichEdit1.Lines.Count-1 do begin
p :=Pos(UpperCase(Edit1.Text),UpperCase(RichEdit1.Lines[i]));

if p <> 0 then
   ListBox1.Items.Add(Format('%d,%d',[i+1,p]));
          end;
end;

Aber manchmal zeigt die Posotion falsch !
statt
1,1
kommt
1,4605548 !!!