function AbreCupomImpFiscal ( CGC_CPF : String ) : Boolean;
begin

  Result := False;

  if MarcaImpressoraFiscal = mifBematech then
  begin
    if VerificaCupomAberto then
    begin
      Mensagem('O último cupom será cancelado pois não foi finalizado', tmAviso);
      CancelaCupom_ImpFiscal;
    end;
    iRetorno := Bematech_FI_AbreCupom ( pChar ( CGC_CPF ) );
    Retorno_da_impressora ( );

  end

  else
    if MarcaImpressoraFiscal = mifDaruma then
    begin
      //Colocar aqui as funções da Daruma para abertura de cupom
    end

    else
      if MarcaImpressoraFiscal = mifSweda then
      begin
        //Colocar aqui as funções da Sweda para abertura de cupom
      end;

  if iRetorno > 0 then
    Result := True;

end;

MarcaImpressoraFiscal

  if Assigned( xInp32 ) then
     Result := xInp32(PortAddr)
  else
    asm
        mov dx,PortAddr;
        in al,dx
        mov Result,al
     end;

  if not FunctionDetect('inpout32.dll','Inp32',@xInp32) then
     xInp32 := NIL;

  if not FunctionDetect('inpout32.dll','Out32',@xOut32) then
     xOut32 := NIL;

{-----------------------------------------------------------------------------
  Tenta carregar a Biblioteca (DLL) <LibName> e veirica se a função <FuncName>
  existe na DLL. Se existir, retorna ponteiro para a DLL em <LibPointer>
  Veja Exempo de uso em InPort e OutPort (logo acima)
  ( Função encontrada na Internet - Autor desconhecido )
-----------------------------------------------------------------------------}
function FunctionDetect (LibName, FuncName: String; var LibPointer: Pointer): boolean;
var LibHandle: tHandle;
begin
Result := false;
LibPointer := NIL;
  if LoadLibrary(PChar(LibName)) = 0 then
     exit;                                 { não consegiu ler a DLL }

  LibHandle := GetModuleHandle(PChar(LibName));  { Pega o handle da DLL }
  if LibHandle <> 0 then                    { Se 0 não pegou o Handle, falhou }
  begin
     LibPointer := GetProcAddress(LibHandle, PChar(FuncName));{Procura a função}
     if LibPointer <> NIL then
        Result := true;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Minhafunction: function(Senha: string): Boolean;
  Hnd: THandle;
begin
  // Carrega a DLL dinamicamente
  Hnd := LoadLibrary('VERSENHA.DLL');
  if Hnd > 0 then
  begin
    // Executa a função da DLL
    @Minhafunction := GetProcAddress(Hnd, 'GetSenha');
    if @Minhafunction <> nil then
    begin
      // Aqui passamos a senha a ser verificada na funcão
      if Minhafunction('Senha') then
        ShowMessage('Senha válida!')
      else
        ShowMessage('Senha inválida!');
    end;
  end;
  // Descarrega a DLL
  Freelibrary(GetModuleHandle('VERSENHA.DLL'));
end;