Obligar ingreso de datos en varios DBEdits

[chino150]

hola a todos

Mi problema es lo siguiente necesito que en el evento onclick de un boton para guardar se verifique que los DBedit tengan datos si no muestre un mensaje a usuario que debe introducir los datos a lo contrario se guarde los datos, utilizo delphi 7 la base de datos es en access utilizo los componentes adoTable

Muchas Gracias por su ayuda.

[[ElKurgan]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to Self.ComponentCount - 1 do
    if Self.Components[i] = TDBEdit then
      if TDBEdit(Components[i]).Text = '' then
        Raise Exception.Create('Los datos no son válidos)
end;

Esto es sólo una idea, para empezar

Un saludo

[Nasca]

¿Y meterlo en las propiedades de los Fields del Dataset no puede ser mejor aproximación al problema?

[chino150]

Gracias por su ayuda ElKurgan