[guillotmarc]

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.

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.