Stringgrid фото

[Aleksandr69]

Добавляю фото в Stringgrid так ,но что криво как то ,может кто подскажет способ получше

for i := 1 to AdvStringgrid1.RowCount -1 do begin
Picture := TPicture.Create;
S:=AdvStringGrid1.Cells[3,i];//тут имена фото
try
Picture.LoadFromFile('C:\downloads\ '+s);
except
end;
AdvStringGrid1.RowHeights[i]:=120;
AdvStringGrid1.AddPicture(3, i, Picture, True, ShrinkWithAspectRatio, 0,haLeft, vaTop);
end;

Работает но при закрытии приложения ошибки в AdvGrid.pas

Вот тут
procedure TAdvStringGrid.ClearRect(ACol1,ARow 1,ACol2,ARow2: Integer);
var
i,j: Integer;
rc: Integer;
begin

for j := ARow1 to ARow2 do
begin
for i := ACol1 to ACol2 do
begin
if not SaveHiddenCells then
rc := i
else
rc := RemapCol(i);

if not FClearTextOnly then
begin
if HasCellProperties(rc,j) then
begin
if FNilObjects then
begin
NilCell(rc,j);
end
else
begin
FreeCellGraphic(rc,j);
CellProperties[rc,j] := nil;//тут ошибка
end;
end;
end;