cambiar a español los botones del MessageDlg

[negama]

Hola a todos,

¿Alguien me podria decir como cambiar a español los botones que aparecen en el MessageDlg?. Del "Yes" al "Si" por ejemplo.

Estoy usando la siguiente sentencia:

if MessageDlg('¿Hubieron altas de este activo para este año?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
.
.
end;

Saludos!