把一图片改为画笔，用来画线！！！！！！ （有代码）请大家帮忙看看应该怎么改好。(100分)

最近在做一个画铁路线的程序，我想把画笔的形状改变，它的形状用我选择的图片（铁路图片，bmp格式）来替换，这样再画线的时候，就是选择的图片。我急需大家的帮忙！

这是我写的代码，但是就是不能正常显示。希望大家给点提示：不会的帮忙顶一下。
procedure TForm1.Button1Click(Sender: TObject);
var
Bmpmap:TBitmap;
myBrush: LOGBRUSH;
begin

Bmpmap := TBitmap.Create;
try
Bmpmap.LoadFromFile('C:/bmp/31-1.bmp');
form1.Canvas.Brush.Bitmap := Bmpmap;
myBrush.lbStyle := form1.Canvas.Brush.Handle;

form1.Canvas.Pen.Handle := ExtCreatePen(PS_GEOMETRIC , 20, myBrush, 0, nil);
form1.canvas.MoveTo(100,0);
form1.canvas.LineTo(100,300);
finally
Bmpmap.Free;
end;
end;
end.

没有人知道嘛？大家帮帮忙！！～

顶

能不能改变画刷的角度的?因为我现在画斜线的时候这个图片还是原来的角度,我也想让他平行与画出来的线,旋转图片我试了一下,好像旋转后不太好,请问大家一下有没有刷子或者画笔改变角度的?

多人接受答案了。