pregunta para roman

[juan]

Tengo un problema que no lo he podido solucionar creo una linea y si se ve pero no toda la linea completa sino nada mas una parte

var
Sh : Timage;
begin
with Sh do
Canvas.FillRect(ClientRect);
Canvas.MoveTo(X, Y);
Canvas.LineTo(X1,Y1);
transparent:=true;
parent:=panel2;
end;

gracias.