Mehrfachabarbeitung von Komponente

[arbu man]

Delphi-Quellcode:

var i:integer;
begin
i:=1;
for i:=i to {wie viel auch immer} do
  (FindComponent (Edit+inttostr(i)) as TEdit).Text:='was weiss ich';
end;