Komponenten dynamisch aufrufen

[Nalincah]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i :Integer;
begin
  for i := 0 to 9 do
  begin
    if Form1.Components[i] is TEdit then
    begin
      if TEdit(Form1.Components[i]).Name = 'Edit' + SpinEdit1.Text then
      begin
        ShowMessage(TEdit(Form1.Components[i]).Text);
      end;
    end;
  end;
end;