[ecfisa]

Hola naty_prog.

Otra solución puede ser:

Código Delphi [-]
...
 private
    procedure TuCampoSetText(Sender: TField; const Text: String);
 end;
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  DataSet.FieldByName('CAMPO1').OnSetText :=  TuCampoSetText;
  DataSet.FieldByName('CAMPO3').OnSetText :=  TuCampoSetText;
  // Asignalo a los demás campos en que desees evaluar la condición ( <> 8)
end;

procedure TForm1.TuCampoSetText(Sender: TField; const Text: String);
begin
  if Length(Text) <> 8 then
  begin
    MessageBeep(MB_ICONERROR);
    Abort;
  end;
end;

Asigné el evento TuCampoSetText por código para que sea mas entendible, pero si tenés creados los campos persistentes, podés hacerlo desde el Object Inspector.

Saludos.