Como puedo crear funciones?

[THACKER]

Buenas, pues el dia de hoy me estava preguntando como puedo hacer mis funciones por ejemplo.

La messagebox: MessageBox (handle, 'Hello', 'Title', iconinformation)
o.0 Seme olvido como es la message box! o.0 tantos meses sin programas

Aja y quisiera saver como podria hacer que en ves de MessageBox sea CajadeMensaje (Nada, 'Titulo', iconodeinformation)

creo que podria ser para cambiarle las gui de iconos:

Iconinformation as iconodeinformation.

Por favor alguien me ayude gracias.

[[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;

[[Al González]]

Como complemento a la respuesta de FGarcia (¡saludos Fidel!), te convendrá incorporar tu lista de funciones dentro de una o más unidades —archivos .pas sin diseño visual—, de tal manera que queden disponibles para ser utilizadas desde cualquier programa con tan solo añadir el nombre de la unidad correspondiente en la cláusula Uses.

Código Delphi [-]
Uses
  MisFunciones;
...
Begin
  ...
  CajadeMensaje (parámetros);

Cabe mencionar que a estas colecciones de funciones se les conoce como bibliotecas (en inglés, libraries), aunque existe una considerable aceptación de la palabra "librerías"* también.

No dejes de aportar tus comentarios.

Saludos.

Al González.

P.D. No olvides añadir al "Library Path" de Delphi (un parámetro de configuración) el directorio donde se encuentre ubicada tu biblioteca de programación.

*Al igual que algunos autores de libros de programación, no comparto dicho empleo de la palabra librería por considerarlo un error cultural.