[[basti]]

Sí, el problema está en Application.Handle. No muestras el código de Procedim, pero debería ser algo así:

Código Delphi [-]
procedure Procedim(Hnd : THandle); stdcall;
begin
   Application.Handle := Hnd;
  // a partir de aquí el resto...
end;