Primero que nada te comento que en Windows los cambios de línea realmente están representados por dos caracteres #13#10 y no sólo #13.
Te puede ayudar la función StringReplace:
Código Delphi
[-]
Texto := StringReplace(Texto, #13#10, ';', [rfReplaceAll])
// Saludos