[true]

Приветствую, подскажите пожалуста что здесь не так?

Код:

var
  str:TStringList;
  i:integer;
begin
  str:=TStringList.Create;
  str.LoadFromFile('prompt.txt');
  for i:= 0 to str.Count - 1 do
  WinExec(PANSIChar(str.Strings[i]),SW_SHOW);

Код выполняется но команды не выполняются что прописаны в prompt.txt