楽しいなあ　クラス使うとこんなふうに書けるんだ

　with TSaveDialog.Create(self) do try
　　　　 InitialDir:=GetCurrentDir;
　　　　 Filter　:='BIN|*.bin';
　　　　 DefaultExt:='BIN';
　　　　 if execute then
　　　　　 with TFileStream.Create(FileName,fmCreate) do try
　　　　　　Write(bin[0],Sizeof(bin[0])*Length(bin));
　　　　　 finally Free;End;
　finally free;end;