Не могу написать цикл (((

[NikLik]

Не думаю, что стандартными средствами это можно легко сделать.
Что пришло в голову:
1.
а. убираем системные кнопки

procedure TForm1.FormCreate(Sender: TObject);
  var
    Style: Longint;
  begin
    Style := GetWindowLong(Handle, GWL_STYLE);
    SetWindowLong(Handle, GWL_STYLE, Style and not WS_SYSMENU);
  end;

б. Рисуем вместо них свои.(в аттаче--статьи на эту тему)
2.
Создаём форму без бордюра (form.borderstyle:=bsnone) и потом уже отрисовываем свой собственный бордюр со своими кнопками и т.д.

P.S. ни то, ни другое написать не возьмусь