안녕하세요. 선수님께 부탁 드립니다.

노래화일 mid을 txt로 hex로 저장시키는데 화일안에 내용이 많은데도 중간에 EOF 가 옵니다.
<방법1> <방법2> 를 해 보아두 20k인 mid 는 잘 되는데 그 이상은 안되는 같습니다.

<방법1>
procedure TForm1.Button2Click(Sender: TObject);
var
  F1, F2        : TextFile;
  Ch            : Char;
  i,j           : integer;
  s,s1          : ansistring;
  input_file    : string;   // mid 화일명
  write_file    : string;   // 만들 txt화일명
begin
  input_file := edit1.Text; // mid 화일명
  write_file := edit2.Text; //만들 txt 화일명
  AssignFile(F1, input_file);
  Reset(F1);
  AssignFile(F2, write_file);
  Rewrite(F2);
  j :=0;
  while not(Eof(F1)) do
  begin
                s :='';
                i :=0;
                j :=j+1;
                Read(F1, ch);
                i := integer(ch);
                s := '0x'+inttohex(i,2)+', ';
                Write(F2, s);
  end;
  CloseFile(F2);
  CloseFile(F1);
  Showmessage('작업 끝.. ');
end;


<방법2>
var
f: file;
p: pointer;
fs: integer;
begin

AssignFile(f, 'aa.mid');
Reset(f);
fs := FileSize(f);  <- fs에는 188개밖에 안오더라구요. 갯수는 288개 정도되는데
GetMem(p, fs);
try
   CloseFile(f);
finally
   FreeMem(p, fs);
end;