3 Edits, 3 Labels und 3 Listboxen

[Nicodius]

oh sorry

dann halt

Delphi-Quellcode:

if TEdit(sender) <> nil
then
for i := 1 to 3 do
  TLabel(Form1.Findcomponent('Label' + IntToStr(i))).caption := TEdit(Sender).Text;
end;