procedure TForm1.Button1Click(Sender: TObject);
begin
    MessageBox(Handle, 'That will not work.', 'STOP', mb_RetryCancel or mb_IconStop);
end;