procedure TLocation1_tower.inventoryDrawCell(Sender: TObject; ACol,
   ARow: Integer; Rect: TRect; State: TGridDrawState);

begin
if inv1=1 then
begin
    if ((ACol=0) and (ARow=0))
    then
    begin
    apple := TBitmap.Create; //Создаём Bitmap
    apple.LoadFromFile ('data/3285gtb45g/apple.bmp'); //загружаем в него файл
    inventory.Canvas.Draw (Rect.Left, Rect.Top, apple); //Отрисовываем
    apple.Free; //Освобождаем память
    end;
end;
if  inv1=2 then
    if inv2>=1 then
    begin
    if ((ACol=0) and (ARow=0))
    then
    begin
    apple := TBitmap.Create; //Создаём Bitmap
    apple.LoadFromFile ('data/3285gtb45g/apple_korz.bmp'); //загружаем в него файл
    inventory.Canvas.Draw (Rect.Left, Rect.Top, apple); //Отрисовываем
    apple.Free; //Освобождаем память
    end;
    end
    else
    if ((ACol=0) and (ARow=0))
    then
    begin
    apple := TBitmap.Create; //Создаём Bitmap
    apple.LoadFromFile ('data/3285gtb45g/none.bmp'); //загружаем в него файл
    inventory.Canvas.Draw (Rect.Left, Rect.Top, apple); //Отрисовываем
    apple.Free; //Освобождаем память
    end;
end;