EllipsisCharacter funktioniert nicht

[EWeiss]

Mein Code

Delphi-Quellcode:

      else if UseStrFormat = StringFormatFlagsNoWrap then
      begin
        if GdipCreateStringFormat(0, 0, strFormat) = OK then
        begin
          GdipSetStringFormatFlags(strFormat, UseStrFormat);
          GdipSetStringFormatLineAlign(strFormat, StringAlignmentFar);
          GdipSetStringFormatTrimming(strFormat, StringTrimmingEllipsisCharacter);
        end;
        GdipDrawString(Graphics, sTxt, length(sTxt), curFont, @rcLayout, strFormat, brush)
      end

Wenn ich nun die Column in meiner Anwendung verschiebe so das sie über den zu langen Text steht
sollte dieser eigentlich abgeschnitten werden und Ellipsis (...) addiert werden.
Nur leider funktioniert das nicht, keine Ahnung warum.

am Code kann es nicht liegen es sei denn ich habe noch etwas vergessen.

EDIT:
Es geht grundsätzlich schon aber nur von Hand also eigener Code
was mir da nur nicht gefällt sind die unterschiedlichen Abstände da ich die einzelnen Chars in der Weite nicht gegenprüfe.
Das ist der Grund warum ich diese API verwenden möchte.

gruss