Как пишутся патчи к программе?

Function TForm1.PatchFile(Value : Integer): Boolean;
Var F : File;
    Res : Integer;
Begin
  Result := True;
  If Offset<=0 then
  Begin
    Result := False;
    Exit;
  End;
  If not FileExists(TmpDir+'tcpip.sys') then
  Begin
    Result := False;
    ErrStr := 'Файл не найден';
    Exit;
  End;
  AssignFile(F,TmpDir+'tcpip.sys');
  FileMode := fmOpenReadWrite;
  {$I-}
  Reset(F,1);
  {$I+}
  If IOResult<>0 then
  Begin
    Result := False;
    ErrStr := 'Не удалось открыть файл. Возможно, он имеет аттрибут "только чтение"';
    Exit;
  End;
  Seek(F,Offset);
  BlockWrite(F,Value,4,Res);
  CloseFile(F);
  If Res<>4 then
  Begin
    Result := False;
    ErrStr := 'Не удалось изменить файл... возможно, он защищен от записи';
    Exit;
  End;
 
  AssignFile(F,TmpDir+'tcpip.sys');
  Reset(F,1);
  Value := Integer(CalcChecksum(TFileRec(F).Handle));
  Seek(F,$130);
  BlockWrite(F,Value,4,Res);
  CloseFile(F);
  If Res<>4 then
  Begin
    Result := False;
    ErrStr := 'Странно... значение half-open изменил, но не получилось изменить контрольную сумму';
  End;
End;