Array Variant...

[Perio]

Hola:
Como estan, les comento mi problema, estoy trabajando con arreglos de tipo Variant y me pasa lo siguiente:

*Creo y cargo mi arreglo:

//Arreglo variable
arrData := VarArrayCreate([1, MaximoFilas, 1, MaximoColumnas], varVariant);
//Datos de la grilla 'PlanillaDetallada1'
for i := 0 to MaximoFilas do
for j := 1 to MaximoColumnas do
arrData[i + 4, j] := IfThen((PlanillaDetallada1.Cells[j, i] = '') and (j > 2),
'0,00', PlanillaDetallada1.Cells[j, i]);


* Despues de esto realizao calulos sobre los datos y otras cosas, por ultimo a siertas celdas necesito agregarle el string '%':

procedure TFrmOtrosReportesCargasExpo.colocarProcentajes(arrData: Variant);
begin
arrData[1,1] := arrData[1,1] + '%';
arrData[1,1] := arrData[1,1] + '%';
end;


* Pero esto no me da resultado, no me concatena nada, tambien probe cosas como:

arrData[1,1] := VarTypeAsText(arrData[1,1]) + '%';
arrData[1,1] := VarToStr(arrData[1,1]) + '%';


No se si fui claro, desde ya, y como siempre muchas gracias...
Saludos
Perio