Ввод команды и вывод результата

[g-davicelli]

Собственно вот на чём застрял: Консольная программа, работа с видео устройствами и так далее... Получаю список доступных видео источников, код ниже.

function CleateList: string;
var
  CommandList: TStringList;
  Enumerator: Integer;
begin
  CommandList := TStringList.Create;
  try
    SystemVideoDevice := TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
    try
      if SystemVideoDevice.CountFilters > 0 then
      begin
        for Enumerator := 0 to SystemVideoDevice.CountFilters - 1 do
        begin
          CommandList.Add(SystemVideoDevice.Filters[Enumerator].FriendlyName);
        end;
      end;
      Result := CommandList.GetText;
    except
      on Problem: Exception do
      begin
        Writeln('Error:> Impossible to get a list of video devices');
      end;
    end;
  except
    on Problem: Exception do
    begin
      Writeln('Error:> Having trouble creating a team list');
    end;
  end;
end;

После чего собственно, результат выводится в окне, отрезок кода ниже.

Writeln(CleateList);

Всё круто! Теперь мне осталось только, используя клавиатуру ввести номер устройства в окне и запустить его. А как это сделать?
Сосбтвенно элементарный пример ввода и вывода приведён ниже.

var
  Name: string;
begin
  Writeln('Your name');
  Readln(Name);
  Writeln('Hello ' + Name);
  Readln;
end;

Но у меня немного иная история. Я так сейчас понимаю что надо к каждому устройству привязывать свой номер, к номеру привязывать ссылку на устройство. А после ввода того или иного номера запускать связанное с ним устройство...
Есть ещё одна запинка! Если в приложении не подключен модуль форм, то в таком случаи вылетает ошибка/исключение. Собственно модуль DSUtil, строка - 1948.

hr := SysDevEnum.CreateClassEnumerator(CatGUID, EnumCat, 0);

Это не сильно страшно, но всё же напрягает. Особенно если ненужен лишний модуль форм.
Кто может помочь?

[NetSpace]

а занести все полученные данные в массив из N элементов и потом выводить нужный K-й элемент из списка (чтоб 1<=K<=N).такое невозможно?