[jourdan]

Muchas gracias por sus respuestas, estoy usando algo así (si alguien tiene una mejor por favor responder):

var
before, after : string;

begin

before := 'This is & a ''way to < live A > big "life';

Memo1.Lines.Add(before);

after := StringReplace(before, '&', '&amp;',
[rfReplaceAll, rfIgnoreCase]);
before := after;
after := StringReplace(before, '<', '&lt;',
[rfReplaceAll, rfIgnoreCase]);
before := after;
after := StringReplace(before, '>', '&gt;',
[rfReplaceAll, rfIgnoreCase]);
before := after;
after := StringReplace(before, '"', '&quot;',
[rfReplaceAll, rfIgnoreCase]);
before := after;
after := StringReplace(before, '''', '&apos;',
[rfReplaceAll, rfIgnoreCase]);
}


Memo1.Lines.Add(after);
end;