[Andorra] Texturen vergrößern sich bei dynamischer Änderung

[Diamondback2007]

Hm...Also irgendwie klappt das nicht so ganz wie ich das will...
Hier mal der Code:

Laden der Grafiken:

Delphi-Quellcode:

procedure LoadTex;
begin
  SharedImageList.LoadFromFile('Data/Tex/Textures.ail');
  SharedImageList.Restore;
  [...]
end;

Und das Zuweisen:

Delphi-Quellcode:

procedure TMoneyDisplay.ShowValue;
var
  tmp                         : string;
  i                           : Integer;
begin
  tmp := IntToStr(FValue);
  for i := 0 to Length(DisplayObject) - 1 do
    DisplayObject[i].Image := SharedImageList.Find('0'); //Alle Zahlen null setzen, das klappt auch noch...

  for i := 0 to Length(tmp) - 1 do //Richtige Werte zuweisen
    DisplayObject[Length(tmp) - 1 - i].Image := SharedImageList.Find(tmp[i + 1]); //Hier das klappt dann nicht mehr...
//Auch wenn ich hier noch Restore irgendwie dahinter schreibe...
end;