Писать строку в конец одного файла из двух

[YurIbr89]

Проблема в выборе файла. В этом коде почему-то пишет только в один файл.

var l:string;
begin
 f:=TStringList.Create();
    begin
     for n:=0 to 10 do
      if n<=5 then
      l:='myFile1.htm'
     else
      l:='myFile2.htm';
    end;
       f.LoadFromFile(l);
       f.Append('Новая');
       f.SaveToFile(l);
       f.Free;
end;

[Valio]

А что ты собрался сделать то?

     for n:=0 to 10 do
      if n<=5 then
      l:='myFile1.htm'
     else
      l:='myFile2.htm';
    end

После этого цикла всегда будет l:='myFile2.htm';

Тобишь твой код равносилен этому:

var l:string;
begin
 f:=TStringList.Create();
      l:='myFile2.htm';
       f.LoadFromFile(l);
       f.Append('Новая');
       f.SaveToFile(l);
       f.Free;
end;

[YurIbr89]

Нужно l присвоить myFile1.htm или myFile2.htm случайным образом.
Как тогда это сделать?

[Valio]

Randomize;
If Random(20) > 10 Then  l:='myFile1.htm' Else l:='myFile2.htm';

[YurIbr89]

Большое спасибо!