怎么定义如下结构的文件?(100)

如何定义如下结构的文件????(100)
就是建一个包*.pfs,包头的结构是TPfFileSysCtrl,定义目录项结构     TPfDirItem
目录下边就是数据内容了
    {   定义文件系统的控制结构   }
    PTPfFileSysCtrl   =   ^TPfFileSysCtrl;
    TPfFileSysCtrl   =   record
        fileNum:   word;   {   包内包含的文件个数   }
        dirItemNum:   word;   {   包内目录项个数   }
        pad:   array[0..27]   of   byte;
    end;

    {   定义目录项结构   }
    PTPfDirItem   =   ^TPfDirItem;
    TPfDirItem   =   record
        fileId:   word;   {   文件ID:   ID为0的目录项为空闲目录项   }
        filename:   array[0..17]   of   char;   {   文件名   }
        extname:   array[0..3]   of   char;   {   扩展名   }
        offset:   dword;   {   文件在包内的偏移   }
        len:   dword;   {   文件长度   }
    end;
怎么生成这样一个结构的文件
谢谢大侠出招
谢谢

[解决办法]
直接按这个结构write就可以了
var
PfFileSysCtrl:TPfFileSysCtrl
begin
...
...
WriteBuffer（PfFileSysCtrl，sizeof(TPfFileSysCtrl));
...
...
end;
[解决办法]
同意楼上
[解决办法]
var
fst: TFileStream;
begin
fst:= nil;
try
st:= 'fsaddfa ';
fst:= TFileStream.Create( 'c:\fdas.fsp ', fmCreate);
fst.WriteBuffer(TPfFileSysCtrl, sizeof(TPfFileSysCtrl));
while .... do
begin
....
fst.WriteBuffer(TPfDirItem, sizeof(TPfDirItem));
....
end;
finally
fst.Free;
end;
end;