Удаление дублей

[timon132009]

Есть txt файл со строками

Alutre;123456789
Barthalomea;123456789
Black-Biird;123456
Kentd3;123456789
Black-Biird;123456789

Как с помощью Delphi удалить строки с одинаковыми никами? В данном примере необходимо удалить

Black-Biird;123456
Black-Biird;123456789

Вот код на php, но мне надо на Delphi.

PHP код:

<?php 
   
  $nicked = array(); 
   
  foreach (file('./baza.txt') as $line) 
  { 
    list($nick, $pass) = explode(';', trim($line)); 
    $nicked[$nick][] = $pass; 
  } 
   
  $result = array(); 
   
  foreach ($nicked as $nick => $pass) 
  { 
    if (count($pass) == 1) 
    { 
      $result[] = $nick.';'.$pass[0]; 
    } 
  } 
   
  file_put_contents('./ready.txt', implode("\r\n", $result)); 
   
?>

[temaps]

читаешь файл построчно

...
readln(filein,s);
s1:=copy(s,1,pos(';',s));
if(pos(s1,t)=0) then
begin
writeln(fileout,s);
t:=t+s1;
end;
....

Будут найдены все повторения и удалены
Тьфу... Тебе же надо удалить не только повторения, но и оригинал, который повторяется.
Тогда TStringList. Добавляешь читаемые строки и пользуешься встроенными функциями поиска и удаления