undeclared identifier image.... dan DO expected but identifier height found

procedure initialize();
var
baris,kolom:integer;
begin
openlist:=0;
for baris:=0 to image1.width do
    for kolom:=0 to image1.Height do
    begin
    titik[baris,kolom].rhs:= 4001;
    titik[baris,kolom].g:= 4001;
    end;
titik[ttkgoal_x,ttkgoal_y].rhs:=0;
insert(ttkgoal_x,ttkgoal_y);
end;

kamu panggil Image1 itu ya... panggil dulu nama formnya...

Form1.Image1.xxx;

tform1.image1.xx