Seltsame Probleme mit TForm.Canvas

[Luckie]

Er hat keine Klasse, sondern einen Record:

Delphi-Quellcode:

type
  TConsProps = record
    Fontname: string;
    Fontsize: Integer;
    Text, Textbackground: TColor;
    Fontstyle: TFontstyles;
    PenLine: Word;
    PenPos: Word;
  end;
  TConsScreen = type TForm;
  PConsScreen = ^TConsScreen;

Und mit einem Record geht es so:

Delphi-Quellcode:

var
  cs: PConsScreen;
begin
  cs = new(PConsScreen);