[Templar]

Спасибо, уже не надо, разобрался. У меня DrawGrid не перерисовывался, да и как его перерисовать-то я не сильно-то и понял, так как у меня туда заносилось каждое изменение. Сейчас делаю через ImageList, принцип тот же. И все равно не работает)

Код:

procedure TForm1.Imagelisting;
begin
  If (i<=50) and (i>=1) then
    begin
      Image1.Picture.Bitmap:=bitmap;
      ImageList1.Height:=img.Width;
      ImageList1.Width:=img.Height;
      bitmap.Transparent:=True;
      ImageList1.InsertMasked(i,bitmap,bitmap.TransparentColor);
      i:=i+1;
    end
  else
    begin
      for i:=50 downto 1 do
        begin
          GetImgListBitmap(ImageList1, i, Bitmap);
          bitmap.Transparent:=true;
          Imagelist1.ReplaceMasked(i-1,bitmap,bitmap.TransparentColor);
        end;
      i:=50;
    end;
end;

Генерирует сообщение "Unable to Replace Image"
-------------------------------
нашел ошибку, почему так выходит. В событии формы oncreate i:=1;, но данная процедура почему игнорирует это