RecordSet getting

function TPxBank.Get_BanksList: _Recordset;
begin
  Result := CoRecordset.Create;
  try
    Result.CursorLocation := adUseClient;
    Result.Open('SELECT * FROM Banks', GetConnection, adOpenForwardOnly, adLockOptimistic, adCmdText);
    SetComplete;
  except
    on E: Exception do begin
      SetAbort;
      raise;
    end;
  end;
end;