[lmikle]

Если я правильно помню, то перевод числа из 10-ной системы в любую другую реализуется через остаток от деления. Ты поше просто еправильным путем. Тебе надо написать функцю перевода из 10ной системы в 9ную, а потом просто в цикле ее вызвать.

Код:

function DecTo9(ADec : Integer) : String;
var
  L : Integer;
begin
  Result := '';
  L := ADec mod 9;
  Result := IntToStr(L) + Result;
  While ADec > 0 Do
    Begin
       ADec := ADec div 9;
       L := ADec mod 9;
       Result := IntToStr(L) + Result;
    End;
end;

Если нигде не ошибся, то далее все просто:

Код:

var
  I : Integer;
begin
  For I := 0 To 4657 Do Memo1.Lines.Add(DecTo9(I));
end;