[ecfisa]

Hola Josep.

Entiendo que el valor máximo del for (Total) se encuentra en Tren_RealUNITATS_CONSTRUIDES.Value y el código de serie en Tren_RealID_SERIE.Value.

Aplicando a tu código lo que te sugerí en el mensaje #5, debería quedar algo parecido a:

Código Delphi [-]
procedure TF_Real.ToolButton9Click(Sender: TObject);
var
  i: Integer;
begin
  with F_ModulDades do
  begin
    for i := 0 to Tren_RealUNITATS_CONSTRUIDES.Value do
    begin
       Numeros_Serie_Real.Open;
       Numeros_Serie_Real.Append;
       Numeros_Serie_RealNUM_SERIE.Value := Copy(Tren_RealID_SERIE.Value,1,3) +
        '.' + StringOfChar('0', 3- Length(IntToStr(i))) + IntToStr(i));
       Numeros_Serie_Real.Post;
       Numeros_Serie_Real.Next;
    end
  end
end;

(Tomá en cuenta que lo hice en el aire y puede tener algún error)

Saludos