procedure TForm1.Button1Click(Sender: TObject);begin ADOQuery1.SQL.Add('Exec SP_DATABASES'); ADOQuery1.Active := True;end;