Упростить генератор вещественных чисел от -1000 до 1000

[KBO]

Доброе время суток форумчане
Нужно получить массив./список (неважно) вещестенных случайных чисел от -1000 до 1000:
Можно ли упростить код в части получения желаемого значения?

var
  LIndex, LWindow, LCountValue: integer;
  LHeight, LDepth, LFracPart: double;
begin
  LCountValue := 1000;
  Pr_ListVendor := TList.Create;
  randomize;
  for LIndex := 1 to LCountValue do
  begin
    LFracPart := Random;
    LDepth := LFracPart + RandomRange(-1000, 1000);
    Pr_ListVendor.Add(TCustomer.Create(LDepth));
  end

Спасибо

[min@y™]

а чо не устраивает-то?

[Аватар]

LDepthi:= Random*2000-1000;

TCustomer - это что? Как будешь память освобождать? Тогда уж TObjectList

[KBO]

Сообщение от Аватар

LDepthi:= Random*2000-1000;

TCustomer - это что? Как будешь память освобождать? Тогда уж TObjectList

- TCustomer = class
- TObjectList - конечно я ж использую список объектов (просто у меня в объекте несколько таких чисел + строковые данные, так что массив не подошел).

о, работает
еще раз спасибо.

[Аватар]

Я про это Pr_ListVendor := TList.Create;
Не вижу там TObjectList