Hola.
Puedes hacer un pequeño programa en Delphi, que recorra la tabla (ordenada por C1), de forma que elimine todos los registros con el mismo código.
Código:
procedure Limpiar;
var Codigo: integer;
begin
qryTabla.Open;
Codigo := -1;
while not qryTabla.eof do begin
if qryTabla.FieldValues['C1'] = Codigo then begin
qryTabla.Delete;
end
else begin
Codigo := qryTabla.FieldValues['C1']
end
qryTabla.Next;
end;
qryTabla.Close;
end;
NOTA : También puedes hacerlo igual, en un procedimiento almacenado de Interbase/Firebird utilizando la construcción
for select
Saludos.