delphi runtime create oracle dataset

Hi,
Large and complex in the projects , i will give a simple and useful example of an oracle dataset for avoid confusion.

function getRowCount:Integer;
var
   dset : TOracleDataSet;
begin
   try
      dset := TOracleDataSet.Create(nil);
      dset.Session:= OracleSession1;
      dset.SQL.Text:= 'select count(1) from QD.FIXED_TABLE';
      dset.Open;
      Result:= dset.Fields[0].AsInteger;
   finally
      dset.Close;
      dset.Free;
   end;
end;