Hola Anel.
No existe una función o procedimiento predeterminado que realice lo que buscas. Se necesitan al menos dos pasos, como en el código que te puse arriba, para poder lograrlo.
Por supuesto que podés crearte una:
Código Delphi
[-]
function FormatNum(const Num: Double; const Mask: string; const Spc: Integer): string;
begin
Result:= StringOfChar(' ', Spc - Length(Copy(Result, 1, Pos(DecimalSeparator, Result)-1))) + FormatFloat(Mask, Num);
end;
Uso:
Código Delphi
[-]
Label1.Caption:= FormatNum(5.1, '0.000', 5);
Saludos.