Conversão de tipos para bytes

var
  X: Integer;
  Y: Double;
  S: string;

procedure Gravar(NomeDoArquivo: string);
var
  Stream: TFileStream;
  N: Integer;
begin
  Stream := TFileStream.Create(NomeDoArquivo, fmCreate);
  
  Stream.Write(X, SizeOf(X));
  Stream.Write(Y, SizeOf(Y));

  // string é mais complicado...
  N := Length(S);
  Stream.Write(N, SizeOf(N)); // tamanho
  if N > 0 then Stream.Write(S[1], N); // texto

  Stream.Free;
end;

procedure Ler(NomeDoArquivo: string);
var
  Stream: TFileStream;
  N: Integer;
begin
  Stream := TFileStream.Create(NomeDoArquivo, fmOpenRead);
  
  // le na mesma ordem que escreveu
  Stream.Read(X, SizeOf(X));
  Stream.Read(Y, SizeOf(Y));

  // string é mais complicado...
  Stream.Read(N, SizeOf(N));
  if N > 0 then begin
    SetLength(S, N);
    Stream.Read(S[1], N);
  end
  else begin
    S := ´´;
  end;

  Stream.Free;
end;