[Serega]

Дельфя затуманила ваш разум. »

Ну зачем так сразу критично...
Мне она нравится, но о вкусах не спорят... Я конечно понимаю, что асм как библия для программирования, но пока для меня это как высшая математика...

У меня на форме стоит около 800 Chekbox'ов - вопрос,как можно отключить их по нажатию одной кнопки? »

Очень просто...

Пример снятия отметки с чекбоксов...

Код:

unit Unit1;

interface

uses
  Classes,
  Controls,
  Forms,
  StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    chk1: TCheckBox;
    chk2: TCheckBox;
    chk3: TCheckBox;
    chk4: TCheckBox;
    chk5: TCheckBox;
    chk6: TCheckBox;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  i: integer;
begin
  // Перебираем чекбоксы на форме
  for i:= 1 to ComponentCount - 1 do
     if (Components[i] is TCheckBox) and (Components[i] as TCheckBox).Checked then
  (Components[i] as TCheckBox).Checked:= False;
end;

end.