[[Caral]]

Hola

Código Delphi [-]
var
  i:Integer;
  comp:TComponent;
  Str:String;
begin
    // Recorrido por los edits
  for i := 1 to 37 do begin
    Str := 'Edit' + IntToStr(i);  
    comp := FindComponent(Str);
    
    If TEdit(comp).Text = ' ' then
    begin
    ShowMessage('no hay nada en algun edit');
    end
    else
    begin
    //   .........
  end;

Saludos