Die Koordinaten stimmen nicht bei dir. 20, 20 liegt wohl außerhalb der Progressbar:
Delphi-Quellcode:
var
cl: TColor;
begin
cl := GetPixel(GetDC(Progressbar1.Handle),2,2);
if cl <> CLR_INVALID then
Shape1.Brush.Color := cl
else
ShowMessage(SysErrorMessage(GetLastError));