[rasamaha]

Код:

var
  L, S: Integer;

for L:=1 to StringGrid1.RowCount do
        begin
        S:=StrToInt(StringGrid1.Cells[7,L]);
        if S<=14 then
          begin
          Label15.Visible:=true;
          Label15.Caption:='До записи осталось меньше 14 дней!';
           break;                                                                                       
          end;
        end;

Этот код выполняется в нескольких местах: при загрузке таблицы, при изменении содержимого и при добавлении новой записи.
Хочу написать собственную процедуру этой проверки... но не получается... у меня проблема с описанием этой процедуры и с передачей параметров
Я не смог найти материала по написанию собственных функций и процедур, а то что есть в книгах, очень скудный материал...
Помогите пожалуйста, можно на этом примере, можно на собственных...
Куда что писать?