안녕하세요. 최용일입니다.

그냥 API로 하시던가 델파이파일입출력 표준함수를 사용하시던가 하면 됩니다. 뭐 방법이야 많죠...

const
    c: Char = 'C';
    i: Integer = 120;
var
    m_fp: THandle;
begin
    if not FileExists(FileName) then
        m_fp := FileCreate(FileName)
    else
        m_fp := FileOpen(Filename, fmOpenWrite);
    FileWrite(m_fp, c, SizeOf(char));
    FileWrite(m_fp, i, SizeOf(int));
    FileClose(m_fp);
end;

^^ 항상 즐코하세요...

흠.. 훨씬 더 간단한 방법이 있었군여..
혼자서 고민하다가.. 코드를 막 섞어서 일단은 해결은 했씁니다..
머 이런 방법도 있구나 하구 보심.. *^^*

// 파일 쓰기
procedure TForm1.WriteBinaryFormat(Sender: TObject);
var i, readbytes : Integer;
    iBuffer : Integer;
    szStr : array[0..256] of char;
    fp1 : File;
    TheHandle : THandle;
    ik : DWORD;
begin
  // 일단 기본 포멧으로 파일을 열고..
  AssignFile(fp1, 'c:        est.txt');
  // 파일의 성격을 정한다음...
  Rewrite(fp1);
  // 파일의 핸들을 얻어서.. 바이너리 모드로 핸들을 얻은다음...
  TheHandle := TFileRec(fp1).Handle;

  iBuffer := 1144526;

  WriteFile(TheHandle, iBuffer , sizeof(iBuffer ), ik, NiL);
  // ik => DWORD 형의 변수로서 기록한 길이를 반환한다..
  if ik < 1 then begin
     ShowMessage('쓰기 에러..');
     exit;
  end else begin
     ShowMessage('쓰기성공 : ' + IntToStr(ik) + 'Byte...');
  end; //if

  szStr := ' 안녕 하쇼.. 조건일 입니다요..';

  WriteFile(TheHandle, szStr, sizeof(szStr), ik, NiL);
  if ik < 1 then begin
     ShowMessage('쓰기 에러..');
     exit;
  end else begin
     ShowMessage('쓰기성공 : ' + IntToStr(ik) + 'Byte...');
  end; //if

  CloseHandle(TheHandle);
end;

procedure TForm1.ReadBinaryFormat(Sender: TObject);
var i : Integer;
    nBytesRead : DWORD;
    iBuffer : Integer;
    szBuffer : array[0..256] of char;
    fp1 : File;
    TheHandle : THandle;
begin
  AssignFile(fp1, 'c:        est.txt');
  Reset(fp1);
  TheHandle := TFileRec(fp1).Handle;
  ReadFile(TheHandle, iBuffer , sizeof(iBuffer ), nBytesRead, NiL);
//  ReadFile(TheHandle, iBuffer, sizeof(Integer), nBytesRead, NiL);
  ReadFile(TheHandle, szBuffer, sizeof(szBuffer), nBytesRead, NiL);
  CloseHandle(TheHandle);

  ShowMessage(IntToStr(iBuffer));
  ShowMessage(szBuffer);

end;