type
  TMyRecord = record
    s1: string;
    s2: string;
  end;    var
  tmpMyRecord:     procedure Save;
var
  fs: TFileStream;
begin
  fs := TFileStream.Create('c:\xx.bin', fmCreate or fmOpenWrite);
  try
    fs.WriteBuffer(tmpMyRecord, SizeOf(TMyRecord);
  finally
    fs.Free;
  end;
end;    prcedure Load;
  fs: TFileStream;
begin
  fs := TFileStream.Create('c:\xx.bin', fmOpenRead);
  try
    fs.ReadBuffer(tmpMyRecord, SizeOf(TMyRecord);
  finally
    fs.Free;
  end;
end;