Kleines String Format problem

[EWeiss]

Delphi-Quellcode:

function TForm1.FormatSign(Descr: String; n: Integer; Value: Double): String;
var
 Sgn: Integer;
 Sp: String;
 fmt: String;
begin

  Sgn := sign(Value);
  if (Sgn = 1) Or (Sgn = 0) then
    Sp := '+'
  else
  Sp := '-';

  fmt := '0.' + StringOfChar('0', n);

  result := Descr + Sp + Format('%7.4f', [Abs(Value)]);
end;

Zur zeit wird mein String so Formatiert!
0,1234
Ich möchte ihn aber so formatieren das die länge des String variable, abhängig von fmt ist.
Wenn also fmt = 8 ist soll der String so ausgegeben werden.
0,12345678

Im Moment ist er fest eigestellt mit 4f

gruss