вот что я нашел необходимым сделать это. см. мой пример функции ниже:
procedure DoSomething(hApp:THandle); export;
var
hDllApplication:THandle;
begin
hDllApplication:=Application.Handle;
Application.Handle:=hApp;
try
DoItNow;
finally
Application.Handle:=hDllApplication;
end;
end;