[croc]

кусок из моей проги все работает.

Var
R3 - HWnd;
S - String;
...
SetLength(S, SendMessage(R3, WM_GETTEXTLENGTH, 0, 0)+1);
SendMessage(R3, WM_GETTEXT, Length(S), Integer(PChar(S)));
SetLength(S, lStrLen(PChar(S)));
RichEdit1.Lines.Insert(0, S);
...