[Nyctos Kasignete]

rasamaha, во-первых, ваша собственная процедура Lka принимает параметр Sg, который нигде не использует. Отсюда скорейший вывод — параметры ей не нужны, т.е. следует переписать ее как-то так:

Код:

procedure Lka;
var
L, S: Integer;
// и так далее .............

Во-вторых, не очень понятно, зачем вы внутри этой процедуры объявляете переменную StringGrid1 типа TStringGrid, которая, между прочим, требует вызова конструктора Create для инициализации (а иначе не будет работать), и к тому же у вас уже есть компонент на форме компонент StringGrid1, имеющий то же самое имя... Я все же предполагаю, что вы работаете именно с той StringGrid, что лежит на форме? Поэтому объявление переменной StringGrid1 из процедуры тоже следует выкинуть. То же самое касается переменной Label2 в вашей процедуре. Итого:

Код:

procedure Lka;
var
  L, S: Integer;
begin
  for L:=1 to Form1.StringGrid1.RowCount - 1 do
  begin
    S := StrToInt(Form1.StringGrid1.Cells[5,L]);
    if S <= 10 then
    begin
      Form1.Label2.Visible:=true;
      Form1.Label2.Caption:='до записи осталось меньше 10 дней!';
      break;
    end;
  end;
end;

Остальное практически не смотрю, т.к. слишком много компонентов на форме. Если что, прикладывайте содержимое dfm-файла.