[ecfisa]

Hola.

Un modo que se me ocurre es:

Código Delphi [-]
{ ADataSet: datos (registro actual) - NCar: cantidad de caracteres por campo }
function NuevoCodigo(ADataSet: TDataSet; NCar: Byte): string;
var
  i: integer;
begin
  Result:= '';
  for i:= 0 to ADAtaSet.FieldCount - 1 do
    Result:= Result + Copy(ADataSet.Fields[i].AsString, 1, NCar);
end;

Llamada:

Código Delphi [-]
...
var
  NewCod: string;
begin
  NewCod:= NuevoCodigo(DataSet, 2);
end.

Saludos.