Assignfile,Reset/Rewrite,CloseFile 프로시져를 이용하여,
파일 입출력을 하려는데, 텍스트 모드로는 입출력을 하겠는데,
바이너리 파일로 저장하고, 저장된 바이너리 파일을 텍스트로 읽어서
메모1에 뿌리려면 어떻게 하는거져?

소스는 아래와 같습니다. 초보적인 질문이니, 꼭 답변부탁드립니다.
아래는 메모1의 텍스트를 저장하고 복사하는 프로시져....

procedure TfmMain.mnuSaveClick(Sender: TObject);
var
  isChanged : Boolean;
  filename: String;
  F1,F2: TextFile;
  Buffer:char;
begin


    If isChanged Then Memo1.Lines.SaveToFile(filename);

    AssignFile(F1,filename);
    Reset(F1);

    if Savedialog1.Execute Then
    begin

      AssignFile(F2,Savedialog1.FileName);
      Rewrite(F2);
      while not Eof(F1) do
      begin
        Read(F1,buffer);
        Write(F2,buffer);
      end;
      CloseFile(F2);
   end;
    CloseFile(F1);
end;