Criar Sequências literais no delphi

E ai galera beleza?

Tenho uma dúvida que creio que seja simples. Criar sequências literais no Delphi, porque só consegui criar com números através desta rotina. que joga a sequências num richEdit. Coloco essa rotina no OnTimer;

var
I,n:Integer;
S:String;
begin
I:=1+n-1;
n:=I+1;
S:=IntToStr(n);
RichEdit1.Lines.Add(S);
end;

Essa Rotina cria uma sequência do numeros, mas, eu quero uma que crie uma sequência de letras;

E todas as sequências devem ter no minimo seis caracteres tipo: ´aaaaaa´, ´aaaaab´, ´aaaaac´,etc, etc, etc.

desde já valeu.