下面这这一个过程可以在屏幕上画一个半透明线，如何更改就可以在image的canvas上画这样的线呢？

procedure   TForm1.Button1Click(Sender:   TObject);
var
  hpen:THandle;
  hdc: THandle;begin
  hpen := CreatePen(PS_SOLID, 100,clred);
  hdc :=getdc(0);
  SetROP2(hdc, R2_MASKPEN);
  SelectObject(hdc,   hpen);
  LineTo(hdc,400,400);end;
试过多次了，将hdc :=image1.Canvas.handle;后就可以直接在image的画布上画线了，可是总不能实现半透明的效果，如何才能搞定呢？
新手初练，请多关照。