Si las posiciones son fijas entonces podrias hacerlo como bien te menciona marcoszorrilla, pero si son variables y delimitadas por "," entonces tendrias que hacerte un procedimiento que lea la cadena y vaya asignando cada vez que encuentre una coma ","
Algo Asi
Código Delphi
[-]
for i:= 1 to Length(sLinea) do
begin
vChar := Copy(sLinea, i, 1);
if vChar = ',' then
begin
Inc(vContador);
case vContador of
1: begin CDSCCostoCCosto.Value := vCadena; vCadena:= ''; end;
2: begin CDSCCostoDescripcion.Value := vCadena; vCadena:= ''; end;
end
End
Else
vCadena := vCadena + vChar;
vContador te indica el bloque que esta leyendo.. en el ejemplo solo hay 2 bloques