MessageDlg('¿Desea eliminar el movimiento seleccionado?', System.UITypes.TMsgDlgType.mtconfirmation,
[
System.UITypes.TMsgDlgBtn.mbYes,
System.UITypes.TMsgDlgBtn.mbNo
],0,
procedure(const AResult: TModalResult)
begin
case AResult of
mrYES:
begin
end;
mrNo:
BEGIN
END;
end;
end
);