[lazarus] TWin32Object.SetLimitText()

[Andreas Hausladen]

In the method TWin32Object.SetLimitText() I found the following code:

var Cls: PChar;
begin
  GetClassInfo(Window, @Cls, 5);
  Str := LowerCase(String(PChar(@Cls)));
end;

Wouldn't that raise an AV?

My Delphi code looks like this:

  SetLength(Str, 1024);
  GetClassName(SysInit.Hinstance, PChar(Str), 5);
  SetLength(Str, StrLen(PChar(Str)));
  Str := LowerCase(Str);



Andreas