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;