[J-Fobos]

Function Rand(LowBorder, UpBorder: Integer): Integer;
Begin
  Rand := LowBorder + Random(UpBorder - LowBorder + 1);
End;

Var
  X: Integer;

begin
  Randomize;
  X := Rand(-100, 100);
end.

Вроде так можно делать

зы: а вообще надо у алекстим уточнить, я не помню как в фастскрипт рандомные числа генерируется по правильному.