try
ADOQuery.Open;
except
for i:=0 to Pred(ADOConn.Errors.Count) do begin
if ErrStr<>'' then ErrStr:=ErrStr+#10#13;
ErrStr:=ErrStr+ADOConn.Errors .Description;
end;