Cómo obligo el ingreso de datos a todos los dbedits de un formulario?

[[Caral]]

Hola
Puedes hacer una prueba sencilla.
Coloca 3 edit y un boton en un form y pones este codigo al evento onclick del boton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j:Integer;
  comp:TComponent;
begin
  for i := 1 to 3 do begin
    j := (i);
    comp := FindComponent('Edit' + IntToStr(j));
    If  TEdit(comp).Text = '' then
    begin
    showmessage('Falta llenar el edit'+IntToStr(j));
    end
    else
    // lo que sea
end;
end;

Corre el programa y deja un edit o varios en blanco.
Saludos