if then в части процедуры

[kostghost]

Нужно, чтобы if Checkbox1.Checked работало только на строку Form1.Visible:=False; (ну а в лучшем случае еще на Form1.Visible:=True; )
С моими скудными познаниями языка я не понимаю, как это сделать.

***
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Checkbox1.Checked then // Нужно, чтобы работало только на 1 строчку
  Form1.Visible:=False;  //на эту
   GetWindowsScreen(Edit1.text);
  Form1.Visible:=True;  //ну и можно на эту
   Button1.Caption:=('Готово!');
   Timer1.Enabled:=True;
  end;
***

P.S. Как всегда скажу, что мы только учимся

[psycho-coder]

Если честно не совсем понял вопроса.
Тебе нужно что при CheckBox1.Checked Форма стала невидимой?

[kostghost]

Да, и еще плюс при нажатии кнопки ^_^
Тоесть если галку поставить, то при нажатии кнопки форма скрывается, а если нет, то при нажатии ничего не совершается.
Можно конечно написать громоздкий код типа того, что я представил ниже, но мне бы этого не хотелось

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Checkbox1.Checked then
  begin
  Form1.Visible:=False;
   GetWindowsScreen(Edit1.text);
  Form1.Visible:=True;
   Button1.Caption:=('Готово!');
   Timer1.Enabled:=True;
  end
   else
   begin
   GetWindowsScreen(Edit1.text);
   Button1.Caption:=('Готово!');
   Timer1.Enabled:=True;
   end;
  end;