[vaska]

Уже получилось. Вот код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Хотите выйти?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
CanClose := False;
end;