[Shkutu]

Johny777, спасиб, буду знать.
А вот такая проблемка. Есть код (дополняю деинсталлятор)

Код:

procedure UninstallCancelButtonOnClick(Sender: TObject);
begin
    UninstallProgressForm.CancelButton.ModalResult := mrAbort;
end;

procedure InitializeUninstallProgressForm();
begin
...
CancelButton.OnClick := @UninstallCancelButtonOnClick;
...
if ShowModal = mrAbort then Abort;
end;

Но Abort почему-то срабатывает, только если на кнопку "отмена" нажать дважды. Подскажите, плиз, можно ли с этим что-то сделать?