[ecfisa]

Hola.

Si se trata de una cadena también puede usar el procedimiento Insert

Código Delphi [-]
// Inserta caracter en posición (de derecha a izquierda) 
function InsertPoint(Value: string; const Ch:Char; const PosChar: Integer): string;
begin
  Insert('.', Value, Length(Value)-PosChar+1);
  Result := Value;
end;

Ejemplo de uso:

Código Delphi [-]
...
var
  Monto: string;
  i : Integer;
begin
  Monto := '12345';
  Memo1.Clear;
  for i:= 1 to Length(Monto)-1 do
    Memo1.Lines.Add(InsertPoint(Monto, '.', i));
end;

El resultado:

1234.5
123.45
12.345
1.2345

O simplemente:

Código Delphi [-]
var
  Monto: string;
begin
  Monto := '12345';
  Insert('.', Monto, 4); // 123.45

Saludos