[fidel]

Hola:

Esto te convierte los 50 primeros números en una cadena formada por los números consecutivos del 1 al 50 con formato de 2 caracteres cada uno (y separados con coma y un espacio).

Código Delphi [-]
uses
  ..... StrUtils;

...

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  cadena: string;
begin
  cadena := '';
  for i := 1 to 50 do
    begin
      cadena := cadena + RightStr('00' + IntToStr(i),2) + ', ';
    end;
    ShowMessage(cadena);
end;

Un saludo.