[roman]

Quizá algo como:

Código Delphi [-]
var
  J: Integer;

begin
  for J := 0 to Screen.FormCount - 1 do
    Screen.Forms[J].BorderIcons := [];
end;

Claro, eso sólo actua sobre los formularios que ya estén creados.

// Saludos