[Electronic_Arts]

Что бы мало было писанины надо чтоб эти Edit -ы у тебя были нумерованы по очереди...это раз
а вот и код

Код:

var
ed: Tcomponent;
i: integer;
begin
 for i := 1 to 10 do
 begin
   ed:=FindComponent('Edit'+inttostr(i));
   if ed <> nil then
   begin
     if (ed as TEdit).Text='' then
     showmessage((ed as TEdit).Name + ' Пустой');
   end;
 end;
end;