Disculpen tengo un problema mas :S

en una cadena yo tengo 4e^5

el numero puede cambiar el del 5 en este caso...

lo que yo quiero es arrojar el resultado de esta manera 4x10^5 pero no quiero escribirlo... si no que quiero que el mismo pascal me lo lea como ese tipo de funcion como le podria a hacer ....y que elevado a la 5. se pueda cambiar... y que siga aceptandolo :S y me regrese el resultado en flotante.

function CientoFloat(s:string): real;
var
v: real;
i: integer;
d: integer;
Numero: integer;
Num1: integer;
c: integer;
Extra: integer;
begin
       v:=0;  d:=0;  c:=1;  Extra:=0;
       while length(s) in ['0'..'9'] and c<2 do
       begin
            for i:=1 to length (s) do
            begin
                 if s[i] in ['0'..'9'] then
                    d:= ord(s[i])-48;
 
            end;
            Num1:=d;
            v:=exp( Num1 * ln( Extra ) );
            c:=c+1;
            Extra:=Num1;
       end;
        CientoFloat := v;
end;

Saludos he creado esta funcion para eso intentando dividir... mi cadena para poder identificar el numero de la izquierda en mi ejemplo el 4.... y luego dividirlo y usar el numero de la derecha en mi caso el 5...
pero no me sale correctamente... :/
alguien podria ayudarme :/ ¿?