uses System.SysUtils;

procedure CheckAndProcess(Number: Integer;
  Process: TProc<Integer>);
begin
  if Number < 10 then
    Process(Number);
end;

begin
  CheckAndProcess(5,
    procedure(Number: Integer)
    begin
      WriteLn(Number * 10);
    end);
  //printed: 50
end.