Problems with GDI+

procedure PaintLine(graphics : TGPGraphics);
var
    font        : TGPFont;
    solidBrush  : TGPSolidBrush;
    pen         : TGPPen;
    LF          : TLogFontW;
begin
    Font        := TGPFont.Create('Arial', 8);
    solidBrush  := TGPSolidBrush.Create(MakeColor(255, 0, 0, 255));
    pen         := TGPPen.Create(MakeColor(255,0,0));


    graphics.DrawLine(pen, 4, 30, 204, 30);


    Graphics.FillRectangle(solidBrush, MakeRect(10, 10, 30, 30));
    graphics.DrawLine(pen, 4, 40, 204, 40);


    Font.GetLogFontW(Graphics, LF);
    graphics.DrawLine(pen, 4, 50, 204, 50);


    Graphics.FillRectangle(solidBrush, MakeRect(110, 110, 40, 30));
    graphics.DrawLine(pen, 4, 60, 204, 60);


    Font.GetLogFontW(Graphics, LF);
    graphics.DrawLine(pen, 4, 70, 204, 70);


    Font.Free;
    pen.Free;
    solidBrush.Free;
end;