Последовательность

[CraftR14]

Здрасте.
Вообщем есть программа "result.exe"
Которая поддерживает консольные команды там их около 12.
там примерно такие команды:

result.exe /stext *.txt
result /sinfo *2*.txt

И таких команд ~12 могут поялятся новые.
но сама проблема не в этом.
Т.е делал программу которая делала команду /stext в список файлов из мемо

for i:=0 to Memo1.Lines.Count-1 do
  WinExec (PChar('result.exe /stext '+Memo1.Lines[i]), SW_SHOWDEFAULT);

Но появлисаь такая теперь проблема. т.е. теперь нужно сначала сделать команды из к примеру memo2 с поочередно выбраными файлами из memo1
То есть идет сначала к примеру первая команда /stext то перебираются все файлы из мемо1
Потом вторая команда /sinfo и так же все перербираются..
Не знаю как реализовать.

Прошу помощи! )

Я так понел нужно делать что то вроде вложенного цикла?
ПЛЗ помогите! ))

[W0LF]

var
  Count1, Count2: integer;
begin
  for Count1 := 0 to Memo2.Lines.Count - 1 do begin
    for Count2 := 0 to Memo1.Lines.Count - 1 do begin
      WinExec (PChar('result.exe ' + Memo2.Lines.Strings[Count1] + ' ' 
                   + Memo1.Lines.Strings[Count2]), SW_SHOWDEFAULT);
    end;
  end;
end;