It's more explicit to do this:

> var q:TIBCursor;
> total_records:integer;
> begin
>
> with q do begin
> sql.add('SELECT * FROM TABLE1');
> open;
> FetchAll;
> total_records:=RowNo;
> end;
>
> end;

HTH,
Jason Wharton
CPS - Mesa AZ
http://www.ibobjects.com