[ALexandr555]

Код:

var
RegExp: TRegExpr;
text: string;
k: integer;
N: integer;
begin
 RegExp := TRegExpr.Create;
 N:=0;
  RegExp.Expression := '(<.*?>)';
 text:=memo1.text;
 for k:=1 to Length(text) do if(text[k] = '<') then  inc(N);
 for k:=1 to N do
  begin
   RegExp.InputString:= text;
   RegExp.Exec;
   text:= StringReplace(text,RegExp.Match[1],' ',[rfReplaceAll]);
  end;
 ShowMessage(text);
 RegExp.Free;
end;

вобщем вот сделал вроде нормально)