[Yurk@]

примерно так:

Код:

procedure TmForm.ExIm(ExType:byte;DBName:PChar);
type
  TMyProc = procedure(ExType:byte;DBName:PChar); stdcall;
var
  DLLInstance: THandle;
  MyProc: TMyProc;
begin
  @MyProc:= nil;
  DLLInstance:= LoadLibrary(PChar('ExIm.dll'));
  try
    @MyProc:= GetProcAddress(DLLInstance, 'ExIm_SVS');
    if Assigned(@MyProc) then MyProc(ExType,DBName)
    else
      MessageBox(GetActiveWindow, 'Не найдена DLL-функция!', 'Ошибка', 16);
  Finally
    FreeLibrary(DLLInstance);
  end;
end;