اشکال در ساخت فایل Resource

[mehdi_moosavi]

سلام
من یک فایل Resource ساختم و یک DBF رو داخل اون قرار دادم ولی بعد از Run شدن برنامه و extract فایل DBF این فایل توسط فاکس پرو باز نمیشه!
لطفا راهنمایی کنید


RC FILE>>>>> dbf1 RCDATA "f:\p1.dbf"
***********************************
procedure TForm1.ToolButton4Click(Sender: TObject);
var
rStream: TResourceStream;
fStream: TFileStream;
fname: string;
begin
fname := 'f:\win\p1.dbf';
rStream := TResourceStream.Create(hInstance, 'dbf1', RT_RCDATA) ;
try
fStream := TFileStream.Create(fname, fmCreate) ;
try
fStream.CopyFrom(rStream, 0) ;
finally
fStream.Free;
end;
finally
rStream.Free;
end;

end;

[mehdi_moosavi]

دوستان لطفا راهنمایی کنند

[Arman_1367]

procedure TForm1.ToolButton4Click(Sender: TObject);
var
rStream: TResourceStream;
fStream: TFileStream;
fname: string;
begin
fname := 'f:\win\p1.dbf';
rStream := TResourceStream.Create(hInstance, 'dbf1', RT_RCDATA) ;
try
fStream := TFileStream.Create(fname, fmCreate) ;
try
fStream.CopyFrom(rStream, 0) ;
finally
fStream.Free;
end;
finally
rStream.Free;
end;

خوب معلومه این کار نمی کنه به صورت زیر اصلاحش کن :

var
rStream: TResourceStream;
fStream: TFileStream;
fname: string;
begin
fname := 'f:\win\p1.dbf';
rStream := TResourceStream.Create(hInstance, 'dbf1', RT_RCDATA) ;
try
fStream := TFileStream.Create(fname, fmCreate) ;
try
rStream.Seek(soFromBeginning,0);
fStream.CopyFrom(rStream, rStream.Size) ;
finally
fStream.Free;
end;
finally
rStream.Free;
end;
end;