Процедура с командой

procedure proc(d:comanda);
begin
Inifile.Destroy;  //закрытие 
crypt('config.ini');  //расшифровка
IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');  //открытие
d;  // команда записи\чтения которая идет как переменная в процедуре
Inifile.Destroy;  //закрытие 
crypt('config.ini');  //шифровка
IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');  //открытие
end;

type
  FuncType = function : string;
 
  // Дельфи 2009+
  RFuncType = reference to function : string;
 
function func_command_1 : string;
begin
  Result := 'первая попытка'; // Тут на самом деле происходит чтение через ReadString
end;
function func_command_2 : string;
begin
  Result := 'вторая попытка'; // тут тоже, но чтение других данных
end;
 
function proc(f : FuncType) : string;
begin
  // тут делаешь то, что надо перед чтением
  Result := f;
  // Тут - то, что после
end;
 
// Дельфи 2009+
function proc2(rf : RFuncType) : string;
begin
  // тут делаешь то, что надо перед чтением
  Result := rf;
  // Тут - то, что после
end;
 
 
procedure TForm1.Button57Click(Sender: TObject);
begin
  ShowMessage(proc(func_command_1));
  ShowMessage(proc(func_command_2));
 
  // Дельфи 2009+
  ShowMessage(proc2(function : string
                    begin result := 'Третья попытка'; { тут тоже может быть ReadString } end));
 
end;