ecSyntMemo.pas

//procedure TCustomSyntaxMemo.PasteFromClipboard;
//after
        if soSmartPaste in FOptionsEx then
          ins_text := GetClipboardTextEx(Charset)
        else
          ins_text := GetClipboardText(Charset);

//add
        case Lines.TextFormat of
          tfCR: ReplaceStr(ins_text, #13#10, #13);
          tfNL: ReplaceStr(ins_text, #13#10, #10);
        end;
