Delphi - COMO HAGO UNA FUNCION EN DELHPI?

SALUDOS YA TENI TIEMPO SIN VISITARLOS..!!!

MI PREGUNTA ES:

¿como hago una funcion en delphi?

lo que pasa es que tengo un procedimiento que realizo muchas veces en un mismo formulario y quisiera simplificar lineas de codigo creando una funcion pero no se como hacerlo , pueden ayudarme?

este es el codigo que quiero meter en la funcion :

fecha2 := strtodate(labelededit3.text);

dias := Fecha2-fecha1;
label2.caption := floattostr(Fecha2-fecha1)+' días de estancia' ;

tot_neto := dias * strtofloat(labelededit1.text);
tot_desglosado := tot_neto/1.175;
quince := 0.15;
veinti := 0.025;
iva := tot_desglosado * quince; //strtofloat('.15');
ish := tot_desglosado * veinti; //strtofloat('.025');

labelededit12.Text := copy(floattostr(tot_desglosado),1,7);
labelededit13.Text := copy(floattostr(iva),1,7);
labelededit14.Text := copy(floattostr(ish),1,7);

espero su respuesta y gracias

Más que una función (que devuelve un valor) parece un procedimiento. Ambos son igualmente fáciles:

1) Declaramos el procedimiento o función en el public del form (si va a ser accesible desde otros forms) o en el private (si no):

public
procedure MiProcedimiento;

Luego, en el código pones

procedure TForm1.MiProcedimiento;
begin
{El código va aquí}
end;

Y luegom para llamarlo, simplemente:

MiProcedimiento;

Suerte.