Hello!

What is wrong With this code, as the first line is not showing up on the screen?? All the other line is correct, both in color and Place.

while not table6.Eof do begin
l1:=tshape(findcomponent(Table6.fieldbyname('streknr1').asstring)).left+6;

l2:=tshape(findcomponent(Table6.fieldbyname('streknr2').asstring)).left+6;

t1:=tshape(findcomponent(Table6.fieldbyname('streknr1').asstring)).top+6;

t2:=tshape(findcomponent(Table6.fieldbyname('streknr2').asstring)).top+6;

canvas.MoveTo(l1,t1);

canvas.pen.color:=strtoint(Table6.fieldbyname('strekfarge').asstring);

canvas.pen.Width:=3;

canvas.lineto(l2,t2);

tshape(findcomponent(Table6.fieldbyname('streknr1').asstring)).Repaint;

tshape(findcomponent(Table6.fieldbyname('streknr2').asstring)).Repaint;

Table6.MoveBy(1);
end;