Revertir numeros

[*Caro*]

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