Закрыть форму при нажатии на Button

[Ellita]

Что нужно написать, чтобы закрыть окошко при щелчке на кнопку

[Alar]

Form1.close;

[Alar]

http://www.programmersclub.ru/lab - всё для новичка

[Ellita]

А там не нужно писать - ОК где-то?

[Alar]

Вероятно, нет.

[Alex21]

Ellita, возможно вы имеете ввиду появление окошка с вопросом "Закрыть?" - Yes/No...
То реализуется это так.
-=1=- Для нажатия на кнопку:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if MessageDlg('Действитель закрыть?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
  MessageDlg('Форма закрывается.', mtInformation,[mbOk], 0); { это можно исключить}
    Form1.Close;
  end;
end;

-=2=- Или при закрытии формы "крестиком" (Alt+F4):

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if MessageDlg('Вы уверены?', mtConfirmation, mbYesNoCancel, 0) = mrYes
  then CanClose := true   {Разрешаем завершение работы.}
  else CanClose := false;  {Не разрешаем завершение работы.}
end;