iIECanvas := TIECanvas.Create(ImageEnView1.IEBitmap.Canvas,
  AntiAlias1.Checked, UseGDIPlus1.Checked, ImageEnView1.Bitmap);
iPenColor := PenColor1.Selected;
iPenAlpha := StrToIntDef(PenAlpha1.Text, 255);
iIECanvas.Pen.Color := iPenColor;
iIECanvas.Pen.Style := psSolid;
iIECanvas.Pen.Width := iPenSize;
iIECanvas.Brush.Color := iPenColor;
iIECanvas.Brush.BackColor := iPenColor;
iIECanvas.Brush.Style := bsClear;
iIECanvas.Brush.Transparency := iPenAlpha;
if iPenSize > 1 then
begin
  iLogBrush.lbStyle := BS_Solid;
  iLogBrush.lbColor := iPenColor;
  iLogBrush.lbHatch := 0;
  iIECanvas.Pen.Handle := ExtCreatePen(PS_Geometric or PS_Solid or
    PS_ENDCAP_SQUARE, iPenSize, iLogBrush, 0, nil);
end
else
begin
  iIECanvas.Pen.Color := iPenColor;
  iIECanvas.Pen.Width := iPenSize;
  iIECanvas.Pen.Style := psSolid;
end;
iIECanvas.MoveTo(AStartX, AStartY);
iIECanvas.LineTo(ALastX, ALastY);
iIECanvas.Free();