Delphi. Вы задаете вопрос, мы отвечаем.

Код:

unit PatchFileCreation;

interface

uses ULZMAEncoder;

type
TEncodingCallback=function (Current, Total, UserParam: Cardinal): Boolean;
TObjectEncodingCallback=function (Current, Total, UserParam: Cardinal): Boolean of object;

function EncodeDirectoryToPatch(Directory, ResultFile, TempDirectory:String; CallBack:TEncodingCallback; UserParam: Cardinal):Boolean; overload;
function EncodeDirectoryToPatch(Directory, ResultFile, TempDirectory:String; CallBack:TObjectEncodingCallback; UserParam: Cardinal):Boolean; overload;

implementation

type
TPatchEncoder=class
private
{Тут будут все переменные, которые когда-либо использовались в RealEncodeDirectoryToPatch}
public
constructor Create;
destructor Destroy; override; {А вот тут они будут удаляться вне зависимости от ошибки в самой процедуре}
function RealEncodeDirectoryToPatch(Directory, ResultFile, TempDirectory: String; CallBack: Pointer; UserParam:Cardinal; OfObject:Boolean):Boolean;
end;

function EncodeDirectoryToPatch(Directory, ResultFile, TempDirectory:String; CallBack:TEncodingCallback; UserParam: Cardinal):Boolean; overload;
var
Encoder: TPatchEncoder;
begin
Result := False;
Encoder := TPatchEncoder.Create;
try
try
Result := Encoder.RealEncodeDirectoryToPatch(Directory, ResultFile, TempDirectory, @CallBack, UserParam, False);
except
on Exception do
Result := False;
end;
finally
Encoder.Free;
end;
end;

function EncodeDirectoryToPatch(Directory, ResultFile, TempDirectory:String; CallBack:TObjectEncodingCallback; UserParam: Cardinal):Boolean; overload;
var
Encoder: TPatchEncoder;
begin
Result := False;
Encoder := TPatchEncoder.Create;
try
try
Result := Encoder.RealEncodeDirectoryToPatch(Directory, ResultFile, TempDirectory, @CallBack, UserParam, True);
except
on Exception do
Result := False;
end;
finally
Encoder.Free;
end;
end;

end.

Что получается: "Наружу" торчат только 2 типа и 2 процедуры. Внутри создается объект, гасятся все возможные ошибки (В TODO сделать не гашение, а нотификацию статусом), после работы объект - удаляется. Если все var переменные перетащить из процедуры в private секцию объекта и удалять по Destroy, то:
а) Будет-ли такой метод работы защищенным (Тут работа с другими объектами и файлами, возможно, в последствии - разбиение на потоки)?
б) Является ли это "Хорошим тоном" или накладные расходы на объект - признак кривизны рук?
в) Как такое делаете вы?