如何在delphix中画线(10分)

我想在delphix的组件中画线，但不知如何实现，请各位帮助！
谢谢

怎么没有人回答，我急需，请各位鼎立相助！
还有一个问题：如何把double型数据转化为integer类型的数据呢？

第一个问题 from1.canvs.有画线的过程
第二个问题你这样一来恐怕要丢失数据
因为INT是4位，而DOUBLE是8位

HDC dc=GetDC(.....HWND);

其实和GDI一样处理，包括TextOut都可以用

最后别忘了ReleaseDC

integer:=Trunc(double)
var

S, T: string;
begin
Str(1.4:2:1, T);
S := T + ' Truncs to ' + IntToStr(Trunc(1.4)) + #13#10;
Str(1.5:2:1, T);
S := S + T + ' Truncs to ' + IntToStr(Trunc(1.5)) + #13#10;
Str(-1.4:2:1, T);
S := S + T + ' Truncs to ' + IntToStr(Trunc(-1.4)) + #13#10;
Str(-1.5:2:1, T);
S := S + T + ' Truncs to ' + IntToStr(Trunc(-1.5));
MessageDlg(S, mtInformation, [mbOk], 0, mbOk);
end;

question 1:关键是用from1.canvs.在使用了delphix组件后，看不到效果。

function Trunc(X: Extended): Int64;
function Int(X: Extended): Extended;
这两个函数返回值不同，请问具体的区别是什么，为什么不能用int（）转化呢？

DXDraw.Surface.Canvas

多人接受答案了。