[defcon1_es]

Hola,
puedes usar el método FloodFill del Canvas para "limpiarlo" antes de dibujar el polígono:

Código Delphi [-]
  Canvas.FloodFill(ClientWidth div 2, ClientHeight div 2, clWhite, fsBorder);

o también el método FillRect:

Código Delphi [-]
  Canvas.Brush.Color := clWhite; //No se si es necesaria esta línea...
  Canvas.Brush.Style := bsClear;
  Canvas.FillRect(Rect(0,0,ClientWidth, ClientHeight));

Salu2.