[Genry]

Еще вопросы по процедуры (я изменил PS1 на PlayerSprite1 и PS2 на PlayerSprite2)

Код:

procedure TPlayerSprite1.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
  if Sprite is TPlayerSprite2 then
  begin
    if TPlayerSprite1Action=obichniy then // îáû÷íàÿ ïîçèöèÿ
      begin
        case TPlayerSprite2Action of
        obichniy: exit;
        BottomBlock: exit;
        TopBlock: exit;
        TopUdar: TPlayerSprite1Health:=TPlayerSprite1Health-10;
        UdarLevoy: TPlayerSprite1Health:=TPlayerSprite1Health-5;
        UdarPravoy: TPlayerSprite1Health:=TPlayerSprite1Health-5;
        UdarNiz: TPlayerSprite1Health:=TPlayerSprite1Health-7;
        UdarNogoyZemlyaLevo: TPlayerSprite1Health:=TPlayerSprite1Health-8;
        UdarNogoyZemlyaPravo: TPlayerSprite1Health:=TPlayerSprite1Health-8;
        end;
      end
    else
    if TPlayerSprite1Action=BottomBlock then // íèæíèé áëîê
      begin
        case TPlayerSprite2Action of
        obichniy: exit;                    
        BottomBlock: exit;
        TopBlock: exit;
        TopUdar: TPlayerSprite1Health:=TPlayerSprite1Health-10;
        UdarLevoy: TPlayerSprite1Health:=TPlayerSprite1Health-5;
        UdarPravoy: TPlayerSprite1Health:=TPlayerSprite1Health-5;
        UdarNiz: TPlayerSprite1Health:=TPlayerSprite1Health-1;
        UdarNogoyZemlyaLevo: TPlayerSprite1Health:=TPlayerSprite1Health-1;
        UdarNogoyZemlyaPravo: TPlayerSprite1Health:=TPlayerSprite1Health-1;
        end;
      end
    else
    if TPlayerSprite1Action=TopBlock then // âåðõíèé áëîê
      begin
        case TPlayerSprite2Action of
        obichniy: exit;                    
        BottomBlock: exit;                                                            
        TopBlock: exit;
        TopUdar: TPlayerSprite1Health:=TPlayerSprite1Health-1;
        UdarLevoy: TPlayerSprite1Health:=TPlayerSprite1Health-1;
        UdarPravoy: TPlayerSprite1Health:=TPlayerSprite1Health-1;
        UdarNiz: TPlayerSprite1Health:=TPlayerSprite1Health-7;
        UdarNogoyZemlyaLevo: TPlayerSprite1Health:=TPlayerSprite1Health-8;
        UdarNogoyZemlyaPravo: TPlayerSprite1Health:=TPlayerSprite1Health-8;
        end;
      end
    else
  end;
end;

Надо везде изменить TPlayerSprite1 на PlayerSprite1?