private
{ Private declarations }
public
{ Public declarations }
end;
function WsConsultaLoteRps(nProt : ShortString) : ShortString; StdCall; External dllNfse; far;
(...)
procedure TfrmPrincipal.Button5Click(Sender: TObject);
var
nLoteProt : ShortString;
begin
nLoteProt := editLoteProt.Text;
Memo3.Text := 'Consultando... ';
Memo3.Text := WsConsultaLoteRps(nLoteProt);
end;