onay isteyip silme işlemi yapma

[SoWaLYe]

arkadaşlar bi sil butonum var tıklayınca app açılacak yes olrsa silcek no olursa bırakcak bunu daha önce yapmştm ama şimdi hata alıyor nedendir acaba kod ;

Kod: Tümünü seç

procedure TForm2.SpeedButton5Click(Sender: TObject);
begin
      if
Application.MessageBox('Erişim Şifreniz Hatalı.. ','UYARI !',MB_YESNOCANCEL)=YES
      then
    vm.adotable1.delete

end ;

end.

[cenap_b]

Application.MessageBox('Erişim Şifreniz Hatalı.. ','UYARI !' ,MB_YESNO)=idYES

şeklinde yazmak lazım.

[SoWaLYe]

çok teşşkür ederim anında cevap veriyorsunuz sağolun