if messagebox(self.Handle,pchar('¿Desea modificar este registro actual?'),'Confirmación',MB_YESNO + MB_ICONQUESTION+MB_DEFBUTTON2)=IDYES then ShowMessage('hola');