Проблема с записью в файл (Memo.Lines.SaveToFile)

[RakNaGore]

Пишу простой генератор паролей. Если у нас есть 2 файла:
1.txt:

PHP код:

admin
user 


2.txt:

PHP код:

qwerty
password
123 


То в итоге программа должна создать третий файл с заданным мною именем и с содержанием:

PHP код:

admin;qwerty
admin;password
admin;123
user;qwerty
user;password
user;123 


Вот участок, отвечающий за это:

procedure TForm1.Button3Click(Sender: TObject);
var myFile : TextFile; //текстовый файл для работы
    i, j : integer; //счетчик
begin
AssignFile(myFile, FName); //присваиваем
ReWrite(myFile); //перезаписываем
CloseFile(myFile); //работу закончили
if Form1.RadioButton2.Checked then for i := 0 to (Form1.memo1.lines.count - 1) do
 begin
  for j:=0 to (Form1.memo2.lines.count - 1) do begin Form1.Memo3.Lines.Add(Form1.Memo1.Lines[i] + ';' + Form1.Memo2.Lines[j]) end;
 end;
Form1.Memo3.Lines.SaveToFile(Fname);
end;

Таким образом я переношу текст с первого файла в Memo1, а со второго в Memo2 (этого здесь нет, но там всё проходит успешно). Дальше через 2 цикла я к каждому логину приписываю через точку с запятой пароли. В Memo3. Тут тоже всё нормально. А вот дальше файл Fname (у меня это по умолчанию result.txt) почему-то пустой, но создается нормально.

[Stilet]

Мemo2.lines.count чему равно?
Мemo2.lines.count чему равно?
RadioButton2.Checked точно "чекнуто"?

[RakNaGore]

Сообщение от Stilet

Мemo2.lines.count чему равно?
Мemo2.lines.count чему равно?
RadioButton2.Checked точно "чекнуто"?

По условию чекнуто, на это не обращайте внимание, у меня там просто несколько режимов.

Мemo2.lines.count и Мemo1.lines.count - в зависимости от того, сколько строк в моих файлах =). Да, и по умолчанию я их очистил. Ну с этим всё в порядке, в итоге то в Memo3 всё записывается нормально. А вот в файл почему-то не сохраняет.

[RakNaGore]

UPD: Проблема была не в том. Оказывается файл создается успешно, только записывается он не в директорию с программой, а туда, где лежат 2 текстовых файла с логинами и паролями.

Ещё убрал вот эту часть:

PHP код:

AssignFile(myFile, FName); //присваиваем
ReWrite(myFile); //перезаписываем
CloseFile(myFile); //работу закончили