После
Код:
implementation
{$R *.dfm}
пишешь такого рода код:
Код:
Function ИмяФункции(Параметры): Возвращаемый тип
Begin
действия
end;
Например:
Function Srednee(a,b:integer): Integer;
begin
result:=(a+b) div 2;
end;
Функция возвратит среднее между двух чисел подающихся на вход функции.