program Test1;

{$mode delphiunicode}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  Classes,
  SysUtils,
  graphtype,
  intfgraphics,
  lazcanvas,
  fpimage,
  fpcanvas,
  types
  { you can add units after this };

var
  RawImage : TRawImage;
  Img      : TLazIntfImage;
  CV       : TLazCanvas;
begin
  try
    RawImage.Init;
    RawImage.Description.Init_BPP32_A8R8G8B8_BIO_TTB(1280, 1024);
    RawImage.CreateData(True);

    Img:=TLazIntfImage.Create(0,0);
    try
      Img.SetRawImage(RawImage);
      CV:=TLazCanvas.Create(img);
      try
        CV.TextOut(100,100,'Text');  // Error: Not availlable

function TNode.NormalizedName: String;
var
  i : integer;
begin
  Result:=Name;
  if length(Result)>0 then begin
    Result:=AnsiLowerCase(Result);
    Result[1]:=AnsiUpperCase(Result[1])[1];
    for i:=1 to length(Result) do begin
      if Result[i]='i' then Result[i]:='I';
      if (i>1) and (Result[i-1]='-') then Result[i]:=AnsiUpperCase(Result[i])[1];
    end;
  end;
end;

WriteLn(Core.Nodes[1].Name);
WriteLn(Core.Nodes[1].NormalizedName);

МОСКВА-П-КУР
?осква-?-?ур

type
  RTLString = AnsiString;

function AnsiUpperCase(Text: string): string;
begin
  Result:=string(SysUtils.AnsiLowerCase(RTLString(Text)));
end;

function AnsiLowerCase(Text: string): string;
begin
  Result:=string(SysUtils.AnsiLowerCase(RTLString(Text)));
end;

type
  TColor = Cardinal;

  operator := (R: TFPColor)L: TColor; // Fatal: Syntax error, "=" expected but ":=" found

implementation

operator:=(R: TFPColor)L: TColor;
begin
  L:=(R.Alpha shr 8) shl 24+
     (R.Red shr 8) shl 16 +
     (R.Green shr 8) shl 8+
     (R.Blue shr 8) ;
end;