[nemesio]

Prueba esto a ver si es lo que quieres.

Código Delphi [-]
for I:=1 to Max do
begin
   cString[i]:=cChar[i];
end;

Suerte.