Nunca utilicé la función en Delphi, pero lo primero que se me ocurriría sería probar el canvas del form para ver si dibuja.
Por algún lugar encontré este código que aunque no lo probé te puede llegar a servir o dar una idea:
Código:
procedure TForm1.FormPaint(Sender: TObject);
const
Points: Array [0..10] of TPoint =
((x:10;y:50),(x:50;y:10),(x:100;y:60),(x:150;y:50),
(x:10;y:100),(x:100;y:50),(x:20; y:50 ),
(x:10;y:200),(x:20;y:180),(x:30;y:220),(x:40;y:180)
);
Segments : Array [0..2] of DWORD = (4,3,4);
begin
Canvas.Pen.Color :=clBlue;
Canvas.Pen.Style := psSolid;
Canvas.Pen.Width := 1;
PolyPolyline( Canvas.Handle, Points, Segments, 3 );
end;