Почему заменяется строчка?

[Манжосов Денис :)]

Label_Password.Caption := '';

if Edit_SizePass.Text = '' then exit;

 for Password := 1 to StrToInt(Edit_SizePass.Text) do
  begin
   Number := Random(9);
   Label_Password.Caption := Label_Password.Caption + IntToStr(Number);
  end;

  if not cb_Create.Checked then exit;

  try
   PasswordFile := TStringList.Create;
   with PasswordFile do
    begin
     Add(PassFileName);
     Add(Label_Password.Caption);
     SaveToFile(PassFileName + '.txt');
    end;
    except on EFCreateError do
    begin
     ShowMessage('');
     GenerateForm.Close;
     MainForm.Show;
     Exit;
    end;
    end;
   SetFileAttributes(PChar(PassFileName + '.txt'), FILE_ATTRIBUTE_READONLY);
   MainForm.Show;
   MainForm.PasswordList.Items.Add(PassFileName);
   GenerateForm.Close;

Первый раз всё работает нормально, но во второй раз при выполнении этой же процедуры, на PasswordList(ListBox) не добавляется строка, а заменяется первая - и так всегда. Если что-то непонятно в коде спрашивайте.

[MAcK]

PasswordFile := TStringList.Create; \\сдесь ты заново создаёшь компонент

[Манжосов Денис :)]

О блин точно. Спасибо большое.