Hola,
A ver si te da alguna idea:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to Panel1.ControlCount - 1 do
begin
if (Panel1.Controls[i] is TEdit) then
begin
if (Trim(TEdit(Panel1.Controls[i]).Text) <> '') then
begin
end else begin
end;
end;
end;
end;