Das Eine Edit-Feld,was nur Optional ist hat ja nen bestimmten namen(in meinen Beispiel hat das Edit Feld den Namen Test).
dann frag den doch einfach ab:
Delphi-Quellcode:
a := 1;
for i := 0 to Form1.ComponentCount -1 do
begin
if (Form1.Components[i] is TEdit) and (Form1.Components[i].Tag = 0) and (Form1.Components[i].name<>'Test') then
a := a * (Length(TEdit(Form1.Components[i]).Text));
end;
if a = 0 then
begin
ShowMessage('Bitte Eingabe überprüfen');
exit;
end;