private
{ Private declarations }
public
{ Public declarations }
end;
function PedConsultaNFSe(nNFSe, nRPS :ShortString) : ShortString; StdCall; External dllNfse; far;
(...)
procedure TfrmPrincipal.Button2Click(Sender: TObject);
var
numNFSe, numRPS : ShortString;
begin
numNFSe := editnfse.Text;
numRPS := editRPS.Text;
Memo1.Text := 'Consultando... ';
Memo1.text := 'Resultado: ' + PedConsultaNFSe(numNFSe, numRPS);
end;