private { Private declarations } public { Public declarations } end; function WsRecepcaoLoteRps(path : ShortString) : shortstring; StdCall; External dllNfse; far; (...) procedure TfrmPrincipal.Button4Click(Sender: TObject); begin EditStatus.Text := WsRecepcaoLoteRps(editPLote.Text); end;