Сохранение дубликатов строк

[AN200]

Как сохранить все дубликаты строк, именно сохранить а не удалить.

Вот так удаление идет дубликатов а вот интересно как их сохранить в отдельный файл ?

var
    f1: TextFile;
    st: string;
    s: TStringList;
 
  begin
    AssignFile(f1, '1.txt');
    reset(f1);
    s := TStringList.Create;
    While not EOF(f1) do
    begin
      readln(f1, st);
      If s.IndexOf(st) < 0 then
        s.Add(st);
    end;
 
    s.SaveToFile('2.txt');
    s.Free;
    CloseFile(f1);
  end;

То есть были строки:
123
123
4444
55555
123

И на выходе база:
123
123
123

[evg_m]

удалить НЕ дубликаты(те для которых не найден еще один)
и потом сохранить.