Как создать процедуру и функцию?

[Absent]

Как создать процедуру и функцию?

[Rapid]

Создание функции
1. Обьявляем функцию в разделе реализации (implementation) по следующим правилам
function Имя функции (параметр1 : тип1, ..., параметрК : типК) : Тип;
var
// здесь объявления локальных переменных
begin
// здесь инструкции функции
Имя := Выражение;
end;

2. Используем функцию. (Ее использование не отличается ничем от использования встроенных функций.

Пример

implementation

function absol(a : integer): integer;
begin
if a<0 then
begin
absol:=a*-1
end;

procedure TForm1.Button1Click(Sender: TObject);
var

b : integer;
begin
b:=absol(-10);
Edit1.Text:=IntToStr(b);
end;