如何将资源中的文件，写入memo？

[yangap]

我已经获得资源的handle,请问如何转换成stream,然后读入memo,谢谢！

[dreamfan]

procedure TForm1.Button1Click(Sender: TObject);
var
Restxt:Tresourcestream;
begin
Restxt:=Tresourcestream.Create(hinstance,'mytxt','txt');
Memo1.Lines.LoadFromStream(Restxt);
Res_txt.Free;
end;

[dreamfan]

Restxt.Free;