[yurfed]

ziiiro, забыл ужо всё, но что то кажется что условие надо продолжить. Извиняюсь если глупость сморозил, но лет 7 не брал в руки шашки

Код:

begin
  if CheckBox1.Checked True
    then
           Label38.Visible:=True; Memo1.Visible:=True; Label3.Visible:=True; Label10.Visible:=True;
           Label17.Visible:=True; ComboBox2.Visible:=True;  Label38.Visible:=True;
    else
          Label38.Visible:=False; Memo1.Visible:=True; Label3.Visible:=True; Label10.Visible:=False;
          Label17.Visible:=False; ComboBox2.Visible:=True;  Label38.Visible:=False;
end;

Пример взят отсюда

Код:

begin
  // Обратите внимание на отсутствие ';' после предложения 'then'
  if False
  then ShowMessage('True')
  Else ShowMessage('False');

  // Вложенные условные операторы - Delphi заметно управляют ассоциациями
  if true then
    if false then
      ShowMessage('Внутренний then')
    Else
      ShowMessage('Внутренний else')
  Else
    ShowMessage('Внешний else')
end;