Migotanie w PaintBox

Witam! Pisze odtwarzacz MP3 ktory ma wyglodac jak Winamp (przynajmniej na razie) mam problem z PlayListą. Rysuję po canvasie PaintBoxa ktory wypełnia mi całą formę (Allign=alClient). Podczas zmiany rozmiaru formy obrazek migota. Użyłem DoubleBuffered i nie pomogło. Probowałem tez z rysowaniem po canvasie bitmapy w pamieci i nic. Oto moja procedurka rysująca:

procedure TForm1.DrawSkin;
Var
Rec : TRect;
Can : TBitmap;
begin
Can := TBitmap.Create;
Can.Width := Width;
Can.Height := Height;
with Can.Canvas do begin
Draw(0, 0, Top_Left1);
Rec.Left := 43;
Rec.Right := (Width div 2)-96;
Rec.Top := 0;
Rec.Bottom := 65;
StretchDraw(Rec, Top_Left2);
Rec.Left := (Width div 2)-96;
Rec.Right := (Width div 2)+97;
Rec.Top := 0;
Rec.Bottom := 65;
StretchDraw(Rec, Top_Center);
Rec.Left := (Width div 2)+97;
Rec.Right := Width-43;
Rec.Top := 0;
Rec.Bottom := 65;
StretchDraw(Rec, Top_Right2);
Rec.Left := Width-43;
Rec.Right := Width;
Rec.Top := 0;
Rec.Bottom := 65;
StretchDraw(Rec, Top_Right1);
Rec.Left := 0;
Rec.Right := 195;
Rec.Top := 65;
Rec.Bottom := Height-115;
StretchDraw(Rec, Cnt_Left);
Draw(0, Height-115, Btm_Left);
Rec.Left := 195;
Rec.Right := Width-120;
Rec.Top := 65;
Rec.Bottom := Height-115;
StretchDraw(Rec, Cnt_Center);
Rec.Left := 195;
Rec.Right := Width-120;
Rec.Top := Height-115;
Rec.Bottom := Height;
StretchDraw(Rec, Btm_Center);
Rec.Left := Width-120;
Rec.Right := Width;
Rec.Top := 65;
Rec.Bottom := Height-115;
StretchDraw(Rec, Cnt_Right);
Draw(Width-120, Height-115, Btm_Right);
end;
P1.Canvas.CopyRect(Rect(0, 0, Can.Width, Can.Height), Can.Canvas, Rect(0, 0, Can.Width, Can.Height));
Can.Free;
end;

Oto zdjecie listy po narysowaniu:

<image src="http://www.przemo2.freehost.pl\lista.jpg"></image>

Cały obrazek podzielony jest na fragmenty (3 rzędy[góra, środek, dół], gdzie góra składa się z 5 kolumn a środek i dół z 3 kolumn co razem daje 11 fragmentów).Moze ja wywoluje ta procedure w zlym momencie bo dawalem ja w OnResize i nic, potem w OnPaint i tez nie pomoglo. Proszę o pomoc!!!