Процедура как параметр процедуры

[Kronos913]

Итак, нужно сделать вот такую конструкцию

Есть процедура 1, у которой среди параметров есть другая процедура
procedure aaa ({что-то там}; b: procedure);

И внутри процедуры aaa вызывать процедуру b

Как сделать так, чтобы такая конструкция работала? Так чтобы в качестве параметра могли использоваться разнице процедуры

И еще, чтобы у этой процедуры B могли быть свои входящие параметры

[evg_m]

https://programmersforum.ru/showthread.php?t=330628

[Kronos913]

А вот не работает...

Tproc = procedure;

Function FindDirDisk(const s1:string; var s2:string; const s3:string; Pr:Tproc):boolean;

Procedure TForm3.DirSearch3;

If FindDirDisk(dns2, Dir, '', DirSearch3) then {что-то там}

Выдает ошибку

[evg_m]

Tproc =procedure of object;
https://programmersforum.ru/showthread.php?t=303113