[nonVCL] Textlänge & GetWindowText, ExtTextOut Problem

[turboPASCAL]

Moin,

Ich habe in einer nonVCL Anwendung folgendes Problem, im Code lese ich einen Text von einenm Item ein und möchte ihn wieder auf einen DC ausgeben.
Wenn ich die länge des Textes mit length(Text) oder sizeof(Text) bestimmen will werden alle Zeichen aus dem Puffer geschrieben. Gebe ich die Länge des Textes als Zahl direkt an ist alles ok.

Delphi-Quellcode:

var szText: Array [0..127] of Char;

//...

begin
  // Text holen
  GetWindowText(hwndItem, szText, sizeof(szText));

  // Text auf DC ausgeben
  ExtTextOut(lpdis.hDC,
      (lpdis.rcItem.Right div 2) - (ts.cx div 2),
      (lpdis.rcItem.Top div 2) + (ts.cy div 2),
      ETO_CLIPPED, @lpdis.rcItem, szText, length(szText), nil);// <---<<<
end;

Mit length(Text) oder sizeof(Text) bekomme ich immer die komplette länge des Arrays, also 128.