RxRichEd.pas파일중 function TRichEditStrings.Get(Index: Integer): string;함수를
다음과 같이 수정해주시면 되여..^-^;;

function TRichEditStrings.Get(Index: Integer): string;
var
  Text: array[0..4095] of Char;
  L: Integer;
begin
  Word((@Text)^) := SizeOf(Text);
  L := SendMessage(RichEdit.Handle, EM_GETLINE, Index, Longint(@Text));
  if (Text[L - 2] = #13) and (Text[L - 1] = #10) then Dec(L, 2)
  else if (RichEditVersion >= 2) and (Text[L - 1] = #13) then Dec(L);
  // by tvhead80
  // SetString(Result, Text, L);
  SetString(Result, Text, sizeof(Text));
  Result := trim(wideString(Result), 1, L))
end;