Firemonkey Image3D Rendering Reihenfolge

[LexLing]

Guten Tag liebe Community,

seit einiger Zeit zerbreche ich mir den Kopf über ein gewisses Problem.
Ich habe mir in Firemonkey ein TViewport3D erstellt, wo ich viele verschiedene TImage3D Objekte reinlade.
Die meisten dieser Objekte sind PNGs, die teilweise Transparent sind, was zu folgenden Problemen führt:
Einige dieser Images werden offensichtlich in der falschen Reihenfolge reingeladen, da diese entweder abgeschnitten sind oder erst gar nicht transparent dargestellt werden.
(Bild im Anhang)

Nach einigem googlen, habe ich Lösungsansätze zu dieser Problemstellung gefunden, bei denen die Reihenfolge beeinflusst werden sollte.
Eines davon unter diesem Link:

http://www.delphitools.info/2011/11/...in-firemonkey/

Diesen Lösungsansatz habe ich in meinen Quellcode einbinden wollen, scheiterte aber schon an "SortList", was ich in Delphi XE5 leider nicht finden konnte.
Ersatzweise habe ich es leicht abgewandelt mit der Methode "Sort" versucht, was aber in der Darstellung leider rein gar nichts verändert.
Hier der Quellcode dazu:

Delphi-Quellcode:

vp.Sort(
function (i1, i2: TFmxObject): Integer
var
  o1,o2: TControl3D;
  x1, x2: Double;
begin
  o1 := nil; o2 := nil;
  if TfmxObject(i1) is TControl3D then o1 := TControl3D(i1);
  if TfmxObject(i2) is TControl3D then o2 := TControl3D(i2);
  if (o1 <> nil) and (o2 <> nil) then
  begin
    x1 := o1.Position.Vector.Distance(vp.cam.Position.Vector);
    x2 := o2.Position.Vector.Distance(vp.cam.Position.Vector);
    Result := Trunc((x2 - x1)*1000);
  end else
    Result := 0;
end
);

Nun frage ich mich wie ich Einfluss auf die Reihenfolge haben oder anderweitig das Problem lösen kann.
Freue mich auf eure Lösungsvorschläge.

Ich hoffe, ihr könnt mir weiterhelfen
Bitte seid nachsichtig, da dies mein erster Delphi Forum Auftritt ist.
Liebe Grüße
LexLing