TShape - stCircle usw wird nicht erkannt

[Mangafreak1995]

danke, ja das mit dem Kommentaren habe ich halt hinzugefügt nich das gleich gesagt wird das niemand weiß wo der Fehler hingehört.
Naja den Code wo die Fehler sind habt ihr ja.
Hier die ganze procedure:

Delphi-Quellcode:

procedure tform2.Options();              // 96
begin
  with form3 do
  begin
    spin1.MaxValue := screen.Height ;            // 100
    spin2.MaxLength := screen.Width ;
    spin2.MinValue := 50 ;
    spin1.MinValue := 50 ;
    spin1.Value := form1.Height;
    spin2.Value := form1.Width ;
    Shape1 := Form1.Shape1;
    Shape2 := Form1.base;
    case shape1.Shape of
      stCircle : combo1.ItemIndex := 2;
      stRoundSquare : combo1.ItemIndex := 1;     // 110
      stSquare : combo1.ItemIndex := 0;
    end;
    case shape2.Shape of
      stCircle : combobox1.ItemIndex := 2;
      stRoundSquare : combobox1.ItemIndex := 1;
      stSquare : combobox1.ItemIndex := 0;
    end;
    if form1.WindowState = wsmaximized then
      radiobutton1.Checked := true
    else                                         // 120
    begin
      radiobutton2.Checked := true;
      spin1.Value := form1.Height;
      spin2.Value := form1.Width;
    end;
  Show();
  end;
  form2.Enabled := False;
end;                                             // 129

Dieser Code richtet ein OptionsMenu ein.