为什么我的发光二极管不发光？

[yelang985]

procedure TForm1.Button4Click(Sender: TObject);
begin
if(hcomm=0)then
begin
messagedlg('通信端口未打开',mterror,[mbok],0);
exit;
end;
if dtrstate then
begin
dovalue:=clrdtr;
escapecommfunction(hcomm,dovalue);
Shape1.Brush.Color:=clwhite;
end
else
begin
dovalue:=setdtr;
escapecommfunction(hcomm,dovalue);
shape1.Brush.Color:=clred;
end;
dtrstate:=(not dtrstate);
end;

程序如果执行正确我把发光二极管接到COM口DTR和GND之间二极管应该发光，可是我接上之后没有发光（二极管没有接反，COM口没有坏，因为我在测试RTS的时候二极管会发光）请各位帮帮忙看看我错在哪儿了？

[zhlwyy]

程序没有错
可能是你的接口有问题