Создание адресного манипулятора

procedure dvizh1_1(Pleft, Ptop:integer);
 const Cleftgruz=536;
begin
  form1.timer1.Enabled:=true;
  if manip.left>Pleft then
  manip.left:=manip.left-1;
  if manip.left=Cleftgruz then begin
  form1.timer1.Interval:=0;
  gruz.Visible:=false;
  sleep(1000);
  end;
  form1.timer1.Interval:=1;
  if (manip.left=Pleft) and (not(manip.top=Ptop)) then
  manip.top:=manip.top-1;
  if (manip.Top=Ptop) and (manip.left=Pleft) then begin
  if gruzy[h]=nil then begin
  form1.timer1.Interval:=0;
  Create;
  sleep(1000);
  form1.timer1.enabled:=false;
  end;
  if gruzy[h]<>nil then begin
  form1.timer1.Interval:=0;
  Destroy1;
  sleep(1000);
  form1.timer1.enabled:=false;
  end;
  end;
  if manip.Top=Ptop then obr;
end;
 
procedure kuz;
var q:integer;
begin
if (manip.Left=592) and (manip.Top=488) then
  begin
  for q:=0 to (form1.ListBox1.Items.Count-1) do begin
  if (strtoint(form1.ListBox1.Items[q])=1) and (strtoint(form1.ListBox2.Items[q])=1) then
  begin
   Pleft:=CPleft[1]; Ptop:=CPtop[1];
   dvizh1_1(Pleft, Ptop);
   form1.ListBox1.Items.Delete(q);
   form1.ListBox2.Items.Delete(q);
  end;
  end;
  end;
  end;                
 
procedure aaa;
var k:integer;
begin
  if (manip.Left=592) and (manip.Top=488) then
  begin
  for k:=0 to (form1.ListBox1.Items.Count-1) do begin
if (strtoint(form1.ListBox1.Items[k])=1) and (strtoint(form1.ListBox2.Items[k])=2) then
  begin
Pleft:=CPleft[2]; Ptop:=CPtop[1];
dvizh1_1(Pleft, Ptop);
form1.ListBox1.Items.Delete(k);
form1.ListBox2.Items.Delete(k);
  end;
  end;
  end;
  end;

manip := TShape.Create(Form1);

Procedure Destroy1;
begin
  FreeAndNil(Gruzy[h]); // Мало того, что освободить, так еще и обнулить указатель !!!
  // Gruzy[h].Free; //.Destroy;
end;