كيف احذف كلمات من سلسلة نصية

[Agmcz]

هكدا افضل
بالتوفيق

كود :

var p1, p2: Integer; s: string; begin s := '<font>delphi</font>'; p1 := Pos('<font>', s) + Length('<font>'); p2 := Pos('</font>', s); s := Copy(s, p1, p2 - p1); if s <> '' then Memo1.Lines.Add(s) else Memo1.Lines.Add('Not Founded'); end;