[fedpavel]

Набор открыт следующим образом:
with q_Query do begin
Close;
SQL.Clear;
CursorType:=ctDynamic;
Connection:=ADOCon;
SQL.ADD('Select *');
SQL.Add('FROM tbl_People');
Open;
if IsEmpty then
else
int_People:=q_Query.FieldByName('PeopleID').AsInte ger;