[marcoszorrilla]

Según te he comentado yo mismo he hecho la prueba y funciona correctamente, lo que puede ocurrir es que tus coordenadas están fuera virtualmente del Tpanel y por eso no se ve nada.

Prueba por ejemplo con:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with panel1 do
   begin
   canvas.Pen.Color:=clBlack;
   canvas.Pen.Width:=1;
   canvas.Pen.Style:=psSolid;
   canvas.MoveTo(10,10);
   canvas.LineTo(500,500);
  end;
end;

Un Saludo.