[FunBit]

Al final he recurrido a lo tradicional

Código Delphi [-]
var
  Tmp: String;
begin

Tmp:=Copy(Matriz[Posicion,5],0,Pos(',',Matriz[Posicion,5])-1) + '.' + Copy(Matriz[Posicion,5],Pos(',',Matriz[Posicion,5])+1,31);

Alguien lo optimiza?