1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

    if TabSheet_Setup_Dummy.Controls[x] is TUpDown then
    begin
      ms := TMemoryStream.Create;
      try
        Dummy_UpDown := TabSheet_Setup_Dummy.Controls[x] as TUpDown;
        s := TabSheet_Setup_Dummy.Controls[x].Name;
        TabSheet_Setup_Dummy.Controls[x].Name := '';
        try
          ms.WriteComponent(Dummy_UpDown);
          ms.Position := 0;
          p_UpDown := TUpDown.Create(Self);

// Hier tritt der Fehler auf
          ms.ReadComponent(p_UpDown);
// !
          begin
            p_UpDown.Name := 'zufallsname';
            p_UpDown.Parent := Dummy_Sheet;
          end;
        finally
          Dummy_UpDown.Name := s;
//          TabSheet_Setup_Dummy.Controls[x] := Dummy_MaskEdit;
        end;
      finally
        ms.Free;
      end; { finally }
    end;                    

1:
2:
3:
4:
5:
6:
7:
8:

var
 x:Integer;
 ms:TMemoryStream;
 Dummy_UpDown,p_UpDown:TUpDown;
 s:String;

begin
for x := 0 to TabSheet_Setup_Dummy.ControlCount -1 do