Como puedo desordenar un archivo ??

[Mick]

Si es para una loteria y no son muchisimos telefonos (no mas de unos cuantos miles), seria mejor elegirlos al azar como explica Neftali o maruenda, e ir eliminadolos de la lista, para que no se vuelvan a usar, ej:

var
 List : TStringList;
 Index: integer;
begin
  List:= TStringList.Create;
  try
    List.LoadFromFile('mistelefonos.txt');
    while List.Count>0 do begin
        Index:= random(List.Count); 
        Memo1.Lines.Add(List[Index]);
        List.Delete(Index);
    end{while};
  finally
    List.Free;
  end;
end;

Saludos