function TDataService.CreateADOQuery(Name: String): TADOQuery;
begin
Result:=nil;
if (Application.FindComponent(Name) is TADOQuery) then
Result:=(Application.FindComponent(Name) as TADOQuery)
else
Result:=TADOQuery.Create(Application);
Result.Connection:=FADOConnection;
end;