wysokość paska zadań

jak sprawdzić wysokość paska zadań?

var
 Task: THandle;
 Rect: TRect;
 Rozmiar: Byte;
begin

 Task := FindWindow('Shell_traywnd', nil);
 GetWindowRect(Task, Rect);
 Rozmiar := Rect.Bottom - Rect.Top;

end;

var
  R: TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA,0,@R,0);
  ShowMessage(IntToStr(Screen.Height - r.Bottom + r.Top));