Kłopot z masowym tworzeniem okienek

for iClip := 1 to Sekt.Count do
      begin
        wvsprintf(Clip, '\\Software\\Desktop Controler\\Sektor%d', @iClip);
        Rejestr.OpenKey(Clip, False);
        Sekt.Sektory[iClip].X := Rejestr.ReadInteger('X');
        Sekt.Sektory[iClip].Y := Rejestr.ReadInteger('Y');
        Sekt.Sektory[iClip].H := Rejestr.ReadInteger('H');
        Sekt.Sektory[iClip].W := Rejestr.ReadInteger('W');
        Rejestr.CloseKey;
        wvsprintf(Clip, 'Sektor%d', @iClip);
        CreateWindow(Clip, '', WS_VISIBLE, Sekt.Sektory[iClip].X, Sekt.Sektory[iClip].Y, Sekt.Sektory[iClip].W, Sekt.Sektory[iClip].H, 0, 0, hInstance, nil);
      end;