TCheckBox

[JRcoker]

Чё тут исправить что вот это заработало?

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
case CheckBox1.State of
cbUnchecked:
ipEdit.Enabled:=True;
 IpGen:=ipEdit.Text;
 ipEdit.Text:=IpGen;
cbChecked:
ipEdit.Enabled:=False;
IpGen:='898';
end;

[DCC Warning] Unit1.pas(52): W1019 For loop control variable must be simple local variable
[DCC Error] Unit1.pas(81): E2026 Constant expression expected
[DCC Error] Unit1.pas(85): E2026 Constant expression expected
[DCC Error] Unit1.pas(85): E2010 Incompatible types: 'TCheckBoxState' and 'Integer'
[DCC Error] Unit1.pas(85): E2010 Incompatible types: 'TCheckBoxState' and 'Integer'
[DCC Error] Unit1.pas(85): E2010 Incompatible types: 'TCheckBoxState' and 'Integer'
[DCC Error] Unit1.pas(85): E2010 Incompatible types: 'TCheckBoxState' and 'Integer'
[DCC Error] Unit1.pas(88): E2029 Statement expected but 'PROCEDURE' found
[DCC Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

[Alter]

Форматируйте текст программы, неудобно читать когда все строки на одном уровне. Возможный вариант исправления, думаю то что хотели:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  case CheckBox1.State of
 cbUnchecked:begin
    ipEdit.Color := clWhite; //показать что ввод доступен
    ipEdit.Enabled:=True;
    IpGen:=ipEdit.Text;
    ipEdit.Text:=IpGen;
            end;
 cbChecked:begin
    ipEdit.Color := clBtnFace; //показать что ввод Запрещён
    ipEdit.Enabled:=False;
    IpGen:='898';
           end;
  end;
end;

[JRcoker]

Спасибо извеняюсь за глупы вопрос.....

[JRcoker]

меня 2 CheckBox"а...мне в одной процедуре надо их задействовать....и не врублюсь как....

begin
\\\тут какойто код
 if CheckBox1.Checked then
 Begin
\\\какойто код
 End
 else
\\какойто код
end;

надо чтото вроде этого

begin
\\\тут какойто код
 if CheckBox1.Checked then
 Begin
\\\какойто код
 End
 else
\\какойто код
end
 if CheckBox2.Checked then
 Begin
\\\какойто код
 End
 else
\\какойто код
end;

[AngelOfDeath]

Не очень понятен вопрос
Нужно чтоб CheckBox'ы включились:

CheckBox1.Checked:=True

или
чтобы при включённом CheckBox'е происходила какаято процедура:

procedure TForm3.Timer1Timer(Sender: TObject);
begin
if CheckBox1.Checked then
Button1.Left:=Button1.Left+1
else
Button1.Left:=Button1.Left-1;
if CheckBox2.Checked then
Button1.Top:=Button1.Top+1
else
Button1.top:=Button1.Top-1;
end;