Игра танчики - Delphi

[Vladislav2114]

Помогите пожалуйста исправить ошибку, все работает хорошо, но когда в мой танк прилетает пуля выдает вот такое сообщение

[Pavia]

procedure TForm1.ObjDestroy(var Obj:TObj);
begin
TTImer(FindComponent('Move'+Obj.Name)).Free;
TTimer(FindComponent('Shot'+Obj.Name)).Free;
Obj.Free;
obj:=nil;  // fix1
end;

function TForm1.ObjDead(var Obj:TObj):boolean;
begin
 if Obj.ObjectData.Armor<=0 then begin
  ObjDestroy(obj);
  Result:=true;
 end else Result:=false;
end;

if (Name1='Bullet') and (Name2='Tank') then begin
    AssignFile(myFile, im+'1.txt');
    Append(myFile);
    Write(myFile, Score);
    Write(myFile, ' ');
    CloseFile(myFile);
 Obj2.ObjectData.Armor:=Obj2.ObjectData.Armor-Obj1.ObjectData.Power;
 Data:=Obj2.ObjectData.Data3;
 Par1:=Obj1.ObjectData.ObjParent;
 ObjDestroy(Obj1);
  if Obj2=Player then    begin end;   //half fix 
  
 if ObjDead(Obj2)=true then begin //  obj2 разрушается, но если это Player, то далее он ссылается черти куда. Надо корректно обработать разрушение объекта.  
  if Par1=Player.Name then begin // 
   Score:=Score+Data;
   Statusbar1.Panels[1].Text:='Î÷êè: '+inttostr(Score);
  end;

obg2 и Player это ссылки указатели на сами объекты. Поэтому обнуление Nil в предыдущем фиксе обнуляет только один указатель.

Данный участок надо переписать. А ещё лучше переписать весь код программы.