Форматирование текста

[Arsenx777]

У меня в программе есть два memo, в одном у меня подгружается html код с сайта!

<form name="forma1">

  <input type="submit" name="submit" value="Отправить">

  <input type="image" name="but_img" src="but.gif">

  <input type="reset" name="reset" value="Очистить">

  <input type="button" name="button" value="Отправить">

</form>

Как можно или с помощью какой функции можно его отредактировать!
Например что бы у тега

<form name=" ">

поменять или убрать

name

или мне надо какие то другие теги, как можно это сделать, и что бы этот отредактированный код выводилься в memo2!
Момогите кто может! очень надо! Заранее спасибо!!!

[Arsenx777]

мне за неделю не кто и не ответил!!! вот я нашел! вот так можно

function Replace(Str, X, Y: string): string;
{Str - строка, в которой будет производиться замена.
 X - подстрока, которая должна быть заменена.
 Y - подстрока, на которую будет произведена заменена}

var
  buf1, buf2, buffer: string;
  i: Integer;

begin
  buf1 := '';
  buf2 := Str;
  Buffer := Str;

  while Pos(X, buf2) > 0 do
  begin
    buf2 := Copy(buf2, Pos(X, buf2), (Length(buf2) - Pos(X, buf2)) + 1);
    buf1 := Copy(Buffer, 1, Length(Buffer) - Length(buf2)) + Y;
    Delete(buf2, Pos(X, buf2), Length(X));
    Buffer := buf1 + buf2;
  end;

  Replace := Buffer;
end;

Пример использования: 
procedure TForm1.Button1Click(Sender: TObject);
var
  a: Integer;
begin
  for a := 0 to Memo1.Lines.Count do
    Memo1.Lines[a] := Replace(Memo1.Lines[a], 'Штаны', '-Штаны-');
end;