procedure TForm1.Button5Click(Sender: TObject);
begin
  Close;// Вихід з програми  
end;