MessageBox Problem...

Hallo Leute..ich hab ein kleines Problem mit meiner MessageBox!

void __fastcall TForm14::Button1Click(TObject *Sender)
{
Form3->Table4->FieldByName("String")->AsString = (DBEdit1->Text);
Form3->Table4->FieldByName("Beschreibung")->AsString = (DBEdit2->Text);
MessageBox(NULL,"Sind Sie sicher?","Wollen Sie dieses Recht wirklich ändern?",
MB_OKCANCEL | MB_TASKMODAL | MB_ICONQUESTION);

int result =  MessageBox(NULL,"Sind Sie sicher?","Wollen Sie dieses Recht wirklich ändern?",
MB_OKCANCEL | MB_TASKMODAL | MB_ICONQUESTION);
switch (result)
{
 case ID_OK: ShowMessage ("Wird geändert");Form3->Table4->Post();break;
 case ID_CANCEL: DBEdit1->SetFocus();ShowMessage ("Abgebrochen");break;
}
}

Und egal ob ich jetzt auf Ja oder Nein Klicke, ich muss immer 2 mal Klicken damit er weiter macht....als ob er mir 2 mal die MessageBox aufbaut! Nach klick is sie kurz weg und dann wieder da!

Vielleicht könnt ihr mir helfen?!

Sunday

du doof, zeigst sie ja auch zweimal an!

Ja sorry,sollte mir den Code vielleicht manchmal besser anschauen!