[Resolvido] Gerar numeros e letras em ordem alfanumerica

Ola Amigos do forum, faz um bom tempo que parei de mexer com delphi e agora estou tendo que reapreender, estou tendo dificulade para gerar uma especie de lista com numeros e letras que nao se repitam, de maneira alguma começando dessa maneira:

usando 8 digitos exemplo

AAAAAAAA

AAAAAAAB

AAAAAAAC

assim por diante

AAAAAAA1

AAAAAAA9

AAAAAABA

AAAAAABB

AAAAAABC

AAAAAA1A

AAAAAA9A

AAAAAA1B

que so acabe apos usar todas as combinacoes possiveis dividindo em arquvivos de de 35000 sequencias ou talvez em 3 mb salvando em arquivo txt

os codigos que possuo sao os seguintes:

esse gera codigos aleatorios porem um so de cada vez, gostaria que fosse gerando ate nao ter mais combinacoes possiveis e entao parar.

procedure TForm1.Button2Click(Sender: TObject);

var
i:integer;
const

letras='ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890';
digitos=8;

begin

for i:=1 to digitos do

Memo1.Text:=memo1.Text+letras[random(length(letras))+1];
end;

esse outro faz gerar ate o numero colocado porem so numeros

procedure TForm1.Button1Click(Sender: TObject);

var

x: integer;
begin

for x := 0 to Pred(50) do
begin

 Memo1.Lines.Add(IntToStr(x));
 end;

 end;

Esse outro carega arquivo txt, apaga a segunda linha e grava no arquivo txt a alteracao

procedure TForm1.Button3Click(Sender: TObject);

 Var
 Lista:TStringList;
 i:Integer;

Begin

Lista:=TStringList.Create;
Lista.LoadFromFile('c:\log.txt');

For i:=0 to Lista.Count -1 do begin

if Lista[i]='2' then Lista.Delete(i);

End;
Lista.SaveToFile('c:\log.txt');
Lista.Free;

end;

Como posso juntar esses 3 codigos para gerar letras e numeros e gravar no arquivo conforme sao geradas as sequencias ?