procedure TForm1.Button1Click(Sender: TObject);
Var F: TextFile;
St: TStringList;
Stg:String;
begin
Screen.Cursor:=crHourglass; //Curseur sablier
AssignFile(F,'c:\test.txt');
Reset(F);
St:=TStringList.Create;
repeat //Repeter...
Readln(F,Stg); //Lit une ligne du fichier texte jusqu'au prochain sut de ligne
if St.IndexOf(Stg)=-1 then
St.Add(Stg); //Ajouter la ligne chaine à la liste si elle n'existe déjà pas
until EOF(F); // ...jusqu'à ce que la position en cours du pointeur se trouve en fin de fichier
CloseFile(F);
St.SaveToFile('c:\test.txt'); //Enregistre le fichier texte
St.Free;
Screen.Cursor:=crDefault;
end;