[Alegun]

У меня ошибок нет - рисунки в массив грузятся норм., ошибка из-за запуска таймера, а в нём такое

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i,j,k : Integer;
begin
  for i:=0 to 19 do
    for j:=0 to 19 do
      Buf.Canvas.Draw(i*32,j*32, zemlya[ Mas[I,j,0] ] );
  for i:=0 to 19 do
    for j:=0 to 19 do
      Buf.Canvas.Draw(i*32,j*32, obekti[ Mas[I,j,1] ] );
  Form1.Canvas.Draw(0,0,Buf);
end;

Buf не создаётся, не хватает Buf := TBitmap.Create при запуске и Buf.Free; при выходе