Como puedo crear funciones?

[[FGarcia]]

Algo asi:

Código Delphi [-]
function Confirmar(Msg: string): Boolean;
begin
  Result := MessageDlg(Msg, mtConfirmation, mbYesNoCancel, 0) = mrYes;
end;

Un ejemplo de uso:

Código Delphi [-]
if Confirm('¡No se han guardado los cambios!' + #10#13 + '¿Confirma Salir?') then
          CancelUpdates;