Работа с файлами

procedure TForm1.Button3Click(Sender: TObject);
var
   buf:array of byte;
   h,d,z:integer;
begin
h:=FileOpen(OpenDialog.FileName, fmOpenRead);
FileCreate('hihi.txt');
d:=FileOpen('hihi.txt', fmOpenWrite);
z:=FileRead(h,buf,2);
.......
FileClose(h);
FileClose(d);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
   buf:^Byte;
   h,d,z,CountByte:integer;
begin
h:=FileOpen(OpenDialog.FileName, fmOpenRead);
FileCreate('hihi.txt');
d:=FileOpen('hihi.txt', fmOpenWrite);
CountByte:=2;
GetMem(buf,CountByte);//выделение памяти под CountByte байтов, buf хранит указатель на первый из них.
z:=FileRead(h,buf,CountByte);
//buf^ - первый байт
inc(buf);
//buf^ - второй байт
.......
FileClose(h);
FileClose(d);
FreeMem(buf);//очистка памяти
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  F : File;
  Arr : array of byte;
  Len : Integer;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath(ParamStr(0))
  ;
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageDlg(
      'Указанный файл не найден. Действие отменено.'
      ,mtWarning, [mbYes], 0
    );
    Exit;
  end;
 
  //Связываем файловую переменную с именем файла.
  AssignFile(F, Od.FileName);
  //Открываем файл в режиме минимального блока в 1 байт.
  Reset(F, 1);
  //Определяем размер файла. Размер будет определён в минимальных
  //блоках. А минимальный блок мы выше определили в 1 байт.
  //Т. е., получим размер в байтах.
  Len := FileSize(F);
  //Устанавливаем длину массива, равной размеру файла в байтах.
  SetLength(Arr, Len);
  //Читаем всё содержимое файла в массив.
  BlockRead(F, Pointer(Arr)^, Len);
  //Закрываем файл.
  CloseFile(F);
 
  //Теперь, всё содержимое файла загружено в массив Arr.
  //...
  //...
  //...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  F : File;
  S : String; //S : AnsiString;
  Len : Integer;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath(ParamStr(0))
  ;
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageDlg(
      'Указанный файл не найден. Действие отменено.'
      ,mtWarning, [mbYes], 0
    );
    Exit;
  end;
 
  AssignFile(F, Od.FileName);
  Reset(F, 1); //Reset(F, SizeOf(AnsiChar));
  Len := FileSize(F);
  SetLength(S, Len);
  BlockRead(F, Pointer(S)^, Len);
  CloseFile(F);
 
  //Теперь, всё содержимое файла загружено в строку S.
  //Например, загрузим эту строку в Мемо.
  Memo1.Text := S;
end;

var
  Od : TOpenDialog;

  Od := OpenDialog1;