[[egostar]]

Ahora

Si son numeros de 2,3,4,5 etc cifras pues algo asi

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  numero: integer;
begin
  Numero := 35459;
  case length(inttostr(numero)) of
     2: ShowMessage(inttostr(round(Numero*0.1)*10));
     3: ShowMessage(inttostr(round(Numero*0.01)*100));
     4: ShowMessage(inttostr(round(Numero*0.001)*1000));
     5: ShowMessage(inttostr(round(Numero*0.0001)*10000));
  end;
end;

Salud OS