Hola Jose, no entiendo muy bien donde exactamente esta tu duda, sería bueno que intentaras hacerlo y nos dijeras donde te estas trancando, te pongo el ejemplo para invertir el numero.
Código Delphi
[-]
var
Num, Aux, Dig : Integer;
begin
Num := StrToInt(StringGrid.Cells[TuColumna, TuFila]);
Aux := 0;
While Num>0 Do
begin
Dig := Num Mod 10;
Aux := Aux*10 + Dig;
Num := Num Div 10;
end;
StringGrid.Cells[TuNuevaColumna, TuFila] := IntToStr(Aux);
Saluditos