[ecfisa]

Hola Josep.

Por lo que pude inferir deseas componer un código compuesto por: Los primeros tres dígitos del número de serie, mas un punto, mas un código consecutivo de tres dígitos.

Te pongo un ejemplo que realiza esa tarea para que lo adaptes a tu código:

Código Delphi [-]
procedure DoCodes(const Serie: string; const Total: Integer; TS: TStrings);
var
  i: Integer;
begin
  for i:= 1 to Total do
    TS.Add(Copy(Serie,1, 3) + '.' + StringOfChar('0', 3- Length(IntToStr(i))) +IntToStr(i));
end;

// Ejemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
begin
  DoCodes('269012890023', 500, ListBox1.Items);
end;

Para probar el ejemplo sólo agrega un TListBox y un TButton en un TForm.

Saludos