CheckBox örneği

procedure TForm1.CheckBox100Click(Sender: TObject);
  begin
  if CheckBox100.checked=false then begin
  Form1.ClientWidth:=540;
  Form1.ClientHeight:=330;
  Panel1.visible:=true;
  senderButton.Visible:=true;
  end else
  if CheckBox100.checked=true then begin
  Form1.ClientWidth:=540;
  Form1.ClientHeight:=480; //467
  Panel1.visible:=false;
  senderButton.Visible:=false;
  end;end;