Ну сделайте вы общий класс и плодите экземпляры от него и будут вам для каждого монстра свои параметры:
Код:
Type
TMonsterState = (msLive, msDead);
TMonster = class
Location: TPoint;
State: TMonsterState;
end;
...
Var
Orda: Array of TMonster;
begin
SetLength(Orda, 0);
for i := 1 to 100
do begin
SetLength(Orda, Length(Orda)+1);
Orda[High(Orda)] := TMonster.Create;
Orda[High(Orda)].Location.X := Random(100);
Orda[High(Orda)].Location.Y := Random(100);
Orda[High(Orda)].State := msLive;
end;
end;