PLTPenColor example for Delphi

procedure TForm1.Button2Click(Sender: TObject);
var
   uPen: L_UINT;
   uWidth: L_UINT;
   crColor: COLORREF;
begin
   for uPen:= 0 to 7 do
   begin
      uWidth:= Round(uPen/2) + 1;
      Case ( uWidth ) of
         1:
         begin
            crColor:= RGB ( 255, 0, 0 );
         end;
         2:
         begin
            crColor:= RGB ( 0, 255, 0 );
         end;
         3:
         begin
            crColor:= RGB ( 0, 0, 255 );
         end;
         4:
         begin
            crColor:= RGB ( 255, 255, 0 );
         end;
         else
         begin
            crColor:= RGB ( 255, 0, 255 );
         end;
      end;
      { Change Pen width }
      LEADImage1.PLTPenWidth[uPen]:= uWidth;

      { Change Pen color }
      LEADImage1.PLTPenColor[uPen]:= crColor ;
   end;

   { Now load the PLT file }
   LEADImage1.Load( 'c:\image1.plt', 0, 0, 1 );
end;