Ссылка. Свойства и методы формы. Лабораторные Delphi

http://alexanderbondar.blogspot.ru/2013/12/3-delphi-1.html

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case (ComboBox1.ItemIndex) of
    0: Self.BorderStyle := TFormBorderStyle(bsNone);
    1: Self.BorderStyle := TFormBorderStyle(bsSingle);
    2: Self.BorderStyle := TFormBorderStyle(bsSizeable);
    3: Self.BorderStyle := TFormBorderStyle(bsDialog);
    4: Self.BorderStyle := TFormBorderStyle(bsToolWindow);
    5: Self.BorderStyle := TFormBorderStyle(bsSizeToolWin);
  end;
end;

Мда....

Я тоже конечно "на коленке" - люблю... Но для преподавателя - по-моему - это уж слишком...