var f        : thandle;
     i,fils   : integer;
     c: byte;
     BytesRead: DWORD;
 begin
  f:=fileopen('c:\1.exe',fmOpenReadWrite);//откриваем c:\1.exe
  fils:=Windows.GetFileSize(f,nil); //размер файла
  SetFilePointer(f, $AB, nil, 0);//устанавливаем позицию на AB
  c:=$12; //будем писать два байти 1 и 2
  WriteFile(f, c, SizeOf(c), BytesRead, nil);  //пишем в файл
  FileClose(f);  //закриваем файл
 end;