[Страдалецъ]

Можно несколько уменьшить код если написать так:

Код:

procedure TForm1.Button3Click(Sender: TObject);
begin
 Memo1.Text := StringReplace(Memo1.Text, 'html', 'xml',[rfReplaceAll]);
end;