[roman]

Podrías usar el evento BeforeInsert:

Código Delphi [-]
procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);
begin
  if DataSet.RecordCount >= 10 then
    abort;
end;

// Saludos