Textzeilen umbrechen

[Luckie]

Kan mir mal jemand helfen, das anzuwenden?

Delphi-Quellcode:

var
  i                 : Integer;
  s                 : string;
  size              : TSize;
  cntChars          : PInteger;
  alpDx             : PInteger;
begin

  GetTextExtentExPoint(dc, PChar(TEXT), length(TEXT), -(PageW * 10) - 100, cntChars, alpDx, size);
  for i := 0 to length(alpDx) - 1 do
  begin
    s := copy(TEXT, alpDx[i], cntChars^);
    TextOut(dc, 100, -10 * (i + 16), PChar(s), length(s));
    end;

Ich dachte so geht es, aber in der for-Zeile meint er, inkompatible Typen.