Dynamischen Wert ermitteln

[Jerry]

Hallo zusammen

Ich habe 8 Edit Felder. Name: edt_SCS1IPAdresse und edt_SCS2IPAdresse usw. Die Zahl 1-8 ist im Namen enthalten.

Wie kann ich nun den Wert dieser Felder in eine Variable (Adresse) setzen mit diesem Code:

Delphi-Quellcode:

      if cb_RDCServer.Text <> '' then  // hier steht dann z.B: 8 darin
      begin
        for i := 0 to ComponentCount - 1 do
        begin
          if (Components[i] is TEdit) and (Components[i].Name = 'edt_SCS' + cb_RDCServer.Text + 'IPAdresse' ) then
          begin
            with (Components[i] as TEdit) do
            begin
              adresse := (Components[i] as Tedit).Text;
            end;
          end;
        end;

Ich erhalte bei der letzten Zeile immer folgenden Fehler:

Listenindex überschreitet das Maximum (1691).

Ich nehme an, dass ich bei meinem Code einen Überlegungsfehler befindet.

Danke für Eure Hilfe.

Gruss Joki.