procedure TForm1.FormResize(Sender: TObject);
var
  i: Integer;
  Start: Cardinal;
  check2: Boolean;
  a: Byte;
begin
  check2 := False;
  OnResize := nil;
  //--------------------------
  Start := GetTickCount;
  for i := 0 to 10000000000 do
    if CheckBox1.Checked then;
  Memo1.Lines.Add(FloatToStr((GetTickCount - Start) / 1000));
  //--------------------------
  Start := GetTickCount;
  for i := 0 to 10000000000 do
    if check2 then;
  Memo1.Lines.Add(FloatToStr((GetTickCount - Start) / 1000));
end;