Dibujar linea en panel

[Iron]

Buenos dias!!!

¿Se puede dibujar una linea en un Panel?, tengo el siguiente código:

Código Delphi [-]
if tipo_pantalla_=3 then begin;
        statictext2.Font.Color :=clWindowText;
        statictext2.Caption:='En Varios Puntos.';
        panel4.Visible:=true;
        statictext3.Font.Color :=clblue;
        statictext3.Caption:='DESABILITADO.';
        panel1.Enabled:=false;
           // Dibujamos lo que falta.
               with panel4 do
                   begin
                    canvas.Pen.Color:=clBlack;
                    canvas.Pen.Width:=1;
                    canvas.Pen.Style:=psSolid;
                    canvas.MoveTo(500,500);
                    canvas.LineTo(1000,1000);
                  end;
      end;

Pero la linea me sale por detrás del Panel , buscando en ayuda he leido que lo suyo sería usar un Paintbox.

Gracias

Este mensaje no debería estar aquí, sino en gráficos, pero no se borrarlo. Perdón