Con seguridad, la empresa tendrá más de 10 clientes, así que es de esperar que el campo datos1.cCodigoCliente admita más de un caracter. Estrictamente hablando, no tengo manera de saber qué es lo que hace el programador original con el valor de ese registro. Pero como aparece basura (caracteres extra no identificados) en el campo final, es de sospecharse que dichos valores los está mandando como cadenas de caracteres.
En Delphi, un arreglo de Char, que comience con índice 0, es compatible con un string, y de ahí que puedas hacer la asignación:
Código Delphi
[-]
datos1.cCodigoCliente:='4';
o bien
Código Delphi
[-]
datos1.cCodigoCliente:='4084';
Si en la declaración del tipo de datos TRegClienteProveedor cambias el campo
Código Delphi
[-]
cCodigoCliente : Array[0..kLongCodigo] of Char;
por
Código Delphi
[-]
cCodigoCliente : Array[1..kLongCodigo] of Char;
verás que ni siquiera te permite compilar cuando haces una asignación como la de arriba.
Ahora bien, cuando usas cadenas de caracteres en un registro asignado dinámicamente (como es tu caso, al asignar memoria), no conviene usar el tipo de datos string ya que éste es, en el fondo, un apuntador, y, como tal, mide 4 bytes, por lo que la llamada a
Código Delphi
[-]
GetMem(datos1, SizeOf(TRegProducto));
te daría un tamaño incorrecto. Por ello, en estos casos conviene usar tipos de datos de longitud fija, y quizá por ello el programador original escogió usar esos arreglos de caracteres.
Sin embargo, no es la única manera y quizá podrías sustituir esos arreglos por cadenas de longitud fija:
Código Delphi
[-]
cCodigoCliente : string[kLongCodigo];
// Saludos