Envío código adicional para compresión:
Código Delphi
[-] rs2 := TADODataSet.Create(nil);
rs2.Connection := connection2;
rs2.CursorType := ctStatic;
rs2.LockType := ltOptimistic;
rs2.CommandText := 'SELECT COUNT(*) AS CANTREG FROM plancli WHERE CC = ' + ccusu;
rs2.Open();