Algorithmus - Zahlen auf Display zentrieren

[Crocotronic]

Hallo,
ich suche nach einem Algorythmus, der mir 1,2 und 3-Stellige Zahlen auf einem Display zentriert. Dabei soll das ganze auch harmonisch aussehen (Abstände zwischen den Zahlen). Es handelt sich um ein "EA eDIP320-8" Display, dass ich mittels XPort ansteuer.
Ich zeig euch einfach mal meinen Ansatz, das erklärt's besser als eine schriftliche Beschreibung:

Delphi-Quellcode:

function DisplayDigit(aNumbers: integer): boolean;
const DspWidth=320; // Breite des Displays
var cText: string;
    n, nLeft: integer;
    nTmp: integer;
    DWidth, DWidthSum: integer;
    Numbers: array of integer;
begin
 ClientConnect;

 DWidthSum:=0; // Breite aller Zahlen
 SetLength(Numbers,Length(inttostr(aNumbers)));
 for n:= Low(Numbers) to High(Numbers) do
 begin
  Numbers[n]:= StrToInt(inttostr(aNumbers)[n+1]);
  DWidthSum:= DWidthSum+GetDigitWidth(Numbers[n],false); // Die Funktion GetDigitWidth läd das Bitmap-File ein und list die Breite aus
 end;

 if DWidthSum < DspWidth then // Falls die Display-Breite nicht ausgenutzt wird, dann das Übrige später als Rand aufaddieren 
 begin
  nTmp:= Round((DWidthSum-DspWidth)/(High(Numbers)+1));
 end;

 for n:= High(Numbers) downto Low(Numbers) do // Hier wird Zahl für Zahl das Display mit den Bitmaps beschriftet
 begin
  DWidth:= GetDigitWidth(Numbers[n],false); // Breite des aktuellen Digits

  nLeft:= Round(DWidthSum-(DWidth/(High(Numbers)+1)))-Round(DWidth/2);
  nLeft:= nLeft+nTmp;         

  SendText2Dsp(nLeft,...);
  DWidthSum:= (DWidthSum - DWidth);
 end;

 ClientDisconnect;
end;

So hab ich mir das ganze überlegt, funktioniert aber nicht immer. Natürlich könnte ich einfach auf bestimme Zahlenlängen abfragen, aber ich brauche was universelles, was auch im Falle eines größeren Display funktionieren würde.
Im Anhang könnt ihr das Ergebnis der Funktion sehen.
Hat von euch jemand eine Idee wie ich das lösen kann?

Viele Grüße
Croco