[glaZZ]

Для работоспособности процедуры ее бы неплохо было еще и объявить:

Код:

...
procedure Button3Click(Sender: TObject);
procedure StringGrid1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Lka (Sg: TStringGrid);

private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Да и описание процедуры в implementation делается следующим образом:

Код:

procedure TForm1.Lka (Sg: TStringGrid);
var
L, S: Integer;
StringGrid1: TStringGrid;
Label2: TLabel; 
 begin

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