YourTMemo.Text := StringReplace(YourTextVar,#10,#13#10,[rfReplaceAll]);
AdjustLineBreaks ?
AdjustLineBreaks(YourString);