Описание процедуры начинается с её заголовка, после чего могут идти (некоторые из них или все могут отсутствовать) точно такие же разделы, что и в основной программе: объявления локальных констант (const), типов (type), переменных (var), меток (label):
procedure Sound(name: PChar);
var s: PChar; begin
//сформировать имя файла: s:= PChar('wav'+ name + ’.wav’); sndPlaySound(s, SND_ASYNC or SND_FILENAME); end;
Или
procedure TfrmMain.LoadFile; // ^ Заголовок процедуры var // Объявления локальных переменных
s : String;
F: TextFile; i,j: integer;
s1,s2,s3,s4,s5,s6,s7: string; n,m:integer; begin // Операторные скобки
. . . // ^ Тело процедуры
end; // Конец процедуры
После объявления констант и переменных в операторных скобках begin- end; помещается тело процедуры, которое представляет собой операторы, выполняющие действия, для которых, собственно, процедура и предназначена.