Hola JXJ.
Yo haría:
Código Delphi
[-]
procedure GenerarSerie(Serie: TStrings; Alpha: string; Desde, Hasta: Integer);
var
i: Integer;
s: string;
begin
for i:= Desde to Hasta do
begin
s:= IntToStr(i);
Serie.Add(Alpha + StringOfChar('0', 4 - Length(s)) + s);
end;
end;
Ejemplo de llamada:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
Serie: TStrings;
begin
Serie:= TStringList.Create;
try
GenerarSerie(Serie, 'XYZ-', 0, 30000);
Memo1.Lines:= Serie; finally
Serie.Free;
end;
end;
Saludos.