....
type PF_SearchInfo=Procedure(score,depth,speed:integer;pv,cm:Pchar); stdcall;

Var procE:PF_SearchInfo;
...
Procedure EI_Initialization(PF_SearchInfo:PF_SearchInfo;mem_lim:integer);stdcall;
begin
 ProcE:=PF_SearchInfo;//далее ProcE вызывается в других функциях дллки
 ........
end;
.......
exports
.....
EI_Initialization,
.....

type
...... PF_SearchInfo=Procedure(score,depth,speed:integer;pv,cm:Pchar); stdcall;
 
..............
implementation

Procedure EI_Initialization (PF_SearchInfo:PF_SearchInfo;mem_lim:integer); external 'DLL1.dll';

Procedure A1(score,depth,speed:integer;pv,cm:Pchar);stdcall;
begin
 showmessage(inttostr(score));
end;

procedure TMyForm.Button1Click(Sender: TObject);

begin  
   EI_Initialization(@A1,32);//здесь приложение зависает
end;