Memo Komponente Wörter rausfiltern

[jkstar]

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var ipos,suchpos:integer;suchstring:string;
begin
iPos := Pos(Memo1.Text,'view.php?ad=');
SuchString := '';
SuchPos := iPos + Length('view.php?ad=');
while (SuchPos < Length(Memo1.Text)) and (Memo1.Text[SuchPos] <> #32) do
  begin
    SuchString := SuchString + Memo1.Text[SuchPos];
    inc(SuchPos);
    memo2.Lines.add(suchstring);
  end;




end;