ganz simpler aufruf aber compiler meldet fehler...

[Angel333]

Ich will n memo nach nem string durchsuchen ganz normal...das hat auch alles funktioniert.
Aber als ich dann aus einem String was löschen wollte sagt er immer:

Constant object cannot be passed as var Parameter

Delphi-Quellcode:

while i<=memo4.Lines.Count-1 do
begin
if pos('http://lix.in/',memo4.Lines[i])>0 then
  begin
        q:= pos('http://lix.in/',memo4.Lines[i]);
        for p:= Pos('http://lix.in/', memo4.Lines.Strings[i]) to length(memo4.Lines.strings[i]) do
          if (Memo4.Lines.Strings[i][p] <> ' ') then
          begin
          s := s + Memo4.Lines.Strings[i][p];
          end
        else
        begin
          break;
          delete(memo4.lines.strings[i],q,p);
        end;
          memo3.Lines.Add(s);
          s:='';
        end;
  end;
i:=i+1;
end;

Ich dreh durch...selbst wenn ich da delete('test',1,2) einsetze sagt er dass gleiche...
Markiert aber diese Zeile als Fehlerquelle...

Habe delphi 6 personal english

Vielen Dank im Vorraus.