// нажатие кнопки Завершить
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close; // закрыть главное окно программы
end;