проблема с RichEdit

procedure InitCommonControls; stdcall; external 'comctl32.dll';

var
  MyWnd: HWND = 0;
  FLibHandle: HModule = 0;
 
procedure TForm1.FormCreate(Sender: TObject);
var f: Integer;
    r: TRect; OldError: integer;
    s: string;
    n: integer;
    ParentWin: HWND;
 
begin
  ParentWin := Handle;
    if FLibHandle = 0 then
  begin
        OldError := SetErrorMode(SEM_NOOPENFILEERRORBOX);
        FLibHandle := LoadLibrary('Riched20.dll');
        if (FLibHandle < HINSTANCE_ERROR) then
            FLibHandle := LoadLibrary('RICHED32.DLL');
        if (FLibHandle < HINSTANCE_ERROR) then
            FLibHandle := 0;
        SetErrorMode(OldError);
    end;
 
  //Create window
    Windows.GetClientRect(ParentWin,r);
    // Create window invisbile, only show when data fully loaded!
    MyWnd:=CreateWindow('RichEdit20A','',WS_CHILD or ES_MULTILINE or ES_READONLY or
                                WS_HSCROLL or WS_VSCROLL or ES_NOHIDESEL,
        r.left,r.top,r.right-r.left,
        r.bottom-r.top,ParentWin,0,HInstance,nil);
    if MyWnd = 0 then
        MyWnd:=CreateWindow('RichEdit','',WS_CHILD or ES_MULTILINE or ES_READONLY or
                                WS_HSCROLL or WS_VSCROLL or ES_NOHIDESEL,
        r.left,r.top,r.right-r.left,
        r.bottom-r.top,ParentWin,0,HInstance,nil);
    if MyWnd <> 0 then
  begin
        SendMessage(MyWnd, EM_SETMARGINS, EC_LEFTMARGIN, 8);
        SendMessage(MyWnd, EM_SETEVENTMASK, 0, ENM_UPDATE); //ENM_SCROLL doesn't work for thumb movements!
    //if wraptext then
      SendMessage(MyWnd,EM_SETTARGETDEVICE,0,0);
    //else
    //  SendMessage(MyWnd,EM_SETTARGETDEVICE,0,1);
    //auto urldetection
    PostMessage(MyWnd,EM_AUTOURLDETECT,1,0);
 
 {And there is the second question answer right gere :-) }
    //load text to window
    SetWindowText(MyWnd,PChar(Memo1.Text)); //here can be either RTF or plain text
 
    //make window visible
    ShowWindow(MyWnd,SW_SHOW);
  end;

var
 EditStream: TEditStream;
 
   begin 
with EditStream do
    begin
      dwCookie := LongInt(pr);
      pfnCallBack := @StreamLoad;
      dwError := 0;
    end;
    SendMessage(hwnd, EM_STREAMIN, SF_RTF, Longint(@EditStream));