[san-46]

Тупо генерируем текстовый файл:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  F : TextFile;
  A, B, C, D, E : Integer;
begin
  AssignFile(F, 'dict.txt');
  Rewrite(F);
  for E := Ord('a') to Ord('z') do
    for D := Ord('a') to Ord('z') do
      for C := Ord('a') to Ord('z') do
        for B := Ord('a') to Ord('z') do
          for A := Ord('a') to Ord('z') do
            WriteLn(F, Char(E)+Char(D)+Char(C)+Char(B)+Char(A));

  CloseFile(F);
end;

Получаем файл в 79 Мб и с более чем 11 млн. строк. Только на кой этот файл нужен? Чего с ним делать?
Использование еще и цифр, код сложнее и файл получается больше на треть.