Hola, también puedes utilizar la función StringReplace.
Código Delphi
[-]
Memo1.Text := StringReplace(Memo1.Text, '[SIZE=' , '[size=',[rfReplaceAll]);
Memo1.Text := StringReplace(Memo1.Text, 'SIZE]' , 'size]',[rfReplaceAll]);
Memo1.Text := StringReplace(Memo1.Text, '"' , '',[rfReplaceAll]);
Saluditos