怎样将整数写入二进制文件？解决思路

怎样将整数写入二进制文件？
以前很少操作二进制文件，今天折腾了一下午，实在弄不出来了，只好问大家。我用的blockread,可以从二进制文件里直接把数据读出来，系统会自动转换成十进制的整数。等我想找十进制的整数写进二进制文件时，却怎么也写不进去。我采取的办法是，先把要写进去的整数，对256取余，算出16进制的数据，然后赋值用blockwrite写，但总是不正确。

请高手指点下，怎样才能将一个整数转换成16进制数，正确的写入二进制文件，最好用blockwrite,当然，其它的也可以，请给一段相对完整的代码，谢谢。

------解决方案--------------------
// 写入文件例子
procedure TForm1.btn1Click(Sender: TObject);
var
Num: Integer;
f: file;
begin
Num := 30245; // 要写的整数
AssignFile(F, 'c:\1.dat');
Rewrite(f, 1);
BlockWrite(f, Num, SizeOf(Integer));
CloseFile(f);
end;

// 读出的例子
procedure TForm1.btn2Click(Sender: TObject);
var
Num: Integer;
f: file;
begin
AssignFile(F, 'c:\1.dat');
Reset(f, 1);
BlockRead(f, Num, SizeOf(Integer));
CloseFile(f);

ShowMessage(IntToStr(Num));
end;