提取拉撒路资源

我创build了一个文件.Lrs和我导入到程序，它的工作原理，但我怎么从程序中获取资源，并将其提取到我的电脑上的位置？ 这是代码：

unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, LResources, Controls, Graphics, Dialogs, ExtCtrls; type { TForm1 } TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin end; initialization {$I resource.lrs} end. 

谢谢！

 var Stream: TLazarusResourceStream; begin Stream := nil; try //load the lazarus resource Stream := TLazarusResourceStream.Create('image', nil); //save to a file Stream.SaveToFile('C:\Foo\image.png'); finally Stream.Free; end; end;