Añadir signo "+" a una variable flotante

[Ricsato]

Saludos a todos en el foro, estoy enviando a la impresora la siguiente cadena:

Write(Lst, Format('%*.*f',[6,2,Esfera]));

donde Esfera, es una variable tipo real, puesto que contiene datos con decimales, cuando la variable es negativa se imprime junto con su valor el signo "-", pero cuando es positivo sale sin signo, entendiendo con esto que es un valor positivo, pero en mi caso, necesito imprimir el signo "+" cuando se trate de un valor positivo, el problema aqui es que solo cuento con 6 espacios definidos en la funcion FORMAT para esta operacion, donde 5 son para el valor y 1 para el signo, no puedo imprimir el signo + por separado por que desconozco la longitud de numeros de la variable y lo ideal seria que se imprimiera el signo "+", asi como se imprime el signo "-" con los negativos, la pregunta es, ¿como puedo hacerle para que por default me aparezca el signo positivo cuando se trate de numeros mayores que cero?

Saludos desde Mexicali, B.C., en Mexico.

[marcoszorrilla]

A modo de ejemplo:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
 nValorouble;
 begin
 nValor:=3.1234;
 ShowMessage('+'+FormatFloat(',0.0000',nValor));
 end;

Un Saludo.

[Ricsato]

Gracias Marcos por tu ayuda, con ese ejemplo se me ocurrio otra forma de hacerlo, convirtiendo la variable flotante a string y añadirle el signo.