Y agregando un poco más, si lo que quieres es guardar información binaria, puede usar el TFileStream o TMemoryStram...
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var
FSArchivo: TMemoryStream;
Numero: integer;
Caracter: char;
begin
Numero := 1234;
Caracter := 'a';
try
FSArchivo := TMemoryStream.Create();
FSArchivo.Position := 0;
FSArchivo.Write(Numero, sizeof(integer));
FSArchivo.Write(Caracter, sizeof(char));
FSArchivo.SaveToFile('c:\archivo.ext');
finally
FSArchivo.Free;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
FSArchivo: TMemoryStream;
Numero: integer;
Caracter: char;
begin
try
FSArchivo := TMemoryStream.Create();
FSArchivo.LoadFromFile('c:\archivo.ext');
FSArchivo.Position := 0;
FSArchivo.Read(Numero, sizeof(integer));
FSArchivo.Read(Caracter, sizeof(char));
finally
FSArchivo.Free;
end;
ShowMessage(inttostr(Numero));
ShowMessage(Caracter);
end;
Saludos...