No proszę, trochę snu, trafna sugestia (czarownik - dzięki [browar] , czaruj tak dalej) i udało się, nawet nie bolało :)
Może komuś się przyda poniższy kod.
procedure TForm2.Button1Click(Sender: TObject);
var
i : integer;
s,t : string;
begin
for i:=0 to ComponentCount -1 do
if Components[i] is TDBEdit then
if TPanel(Components[i]).GetTextLen = 0 then
begin
case i of
14: s := '=> Identyfikator Firmy';
15: s := '=> Nazwa Firmy'; //tego jest więcej ale szkoda miejsca
end;
t := t + s + #13;
end;
if t <> '' then
ShowMessage('Poniższe pola muszą być wypełnione:' +#13 + t);
end;