Escribir en un archivo de texto sin repeticiones

[wilcg]

Amigos del foro nuevamente por aqui, Necesito escribir el texto de un ComboBox en un archivo de texto pero sin que se repita.

estoy utilizando este codigo.

Código Delphi [-]
var
  F: TextFile;
  sArchivo: string;
begin
  sArchivo := ExtractFilePath( Application.ExeName ) + 'Prueba.txt';
  AssignFile( F, sArchivo );

  if FileExists( sArchivo ) then
    Append( F )
  else
    Rewrite( F );

  WriteLn( F, ComboBox1.Text' );
  CloseFile( F );
end

;