Загрузка ресурса в RichEdit

[Volkogriz]

Доброе время суток!
Проблемма такая, при загрузки ресурса в RichEdit выбивает ошибку

RichEdit line insertion error

Что не так?
Если поместить в ресурс тукстовый файл то всё хорошо но если ртф то ошибка при открытии, но сам файл загружается а потом ошибку выбивает(((

PHP код:

procedure TForm1.Image2Click(Sender: TObject);
var
LinesLoad:LongWord;
begin
RichEdit1.Clear;
LinesLoad:= FindResource( hInstance, 'Proj',RT_RCDATA);
LinesLoad := LoadResource(hInstance,LinesLoad);
begin
RichEdit1.Lines.Add(StrPas(PChar( LinesLoad)));
begin
FreeResource(LinesLoad);
end;
end;
end; 


Зарание благодарен!
С уважением,
Volkogriz!

[Volkogriz]

Кто нить подскажет, хотябы намекните чтоб понять гте капать.
что только не пробовал выдаёт ошибку!
подскажите плиз
Зарание благодарен!
С уважением,
Volkogriz!

[Volkogriz]

Всем спасибо разабрался спустя ночь)))

var
LinesLoad:LongWord;
LinesStream:TStringStream;
begin
RichEdit1.Clear;
begin
LinesLoad:= FindResource( hInstance, 'Proj',RT_RCDATA);
LinesLoad := LoadResource(hInstance,LinesLoad);
LinesStream:=TStringStream.create(StrPas(PChar( LinesLoad)));
begin
richedit1.Lines.LoadFromStream(LinesStream);
begin
LinesStream.free;
FreeResource(LinesLoad);
end;
end;
end;
end;

[bokus]

у меня с твоим кодом вопросики повылазили
и сделал вот так вот

procedure TBokus_UtilKad56_Glav_Form.LoadResRTF(Sender: TObject);
var
  ResStream : TResourceStream;
  NameRTF   : PWideChar;
begin
  NameRTF:=pchar(Copy((Sender as  TComponent).Name,3,100));
  RE_Details.Clear;
  if FindResource(hInstance, NameRTF, 'RTF') <> 0 then begin
    ResStream:=TResourceStream.Create(hInstance, NameRTF, 'RTF');
    RE_Details.Lines.LoadFromStream(ResStream);
    ResStream.Free;
  end
  Else
    RE_Details.Text:='Описание';

end;