Obligar ingreso de datos en varios DBEdits

[[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