hvad er min fejl

Hej eksperter

Jeg sidder og laver nogle test med min programmering. og vil lige høre hvad min fejl er her. Jeg er ved at sætte en progressbar ned i en statusbar. men får en fejl.

her får i lige min kode til det...

procedure TForm3.FormCreate(Sender: TObject);
var
PanelRect: Trect;
begin
  THackControl(ProgressBar1).SetParent(StatusBar1);
  SendMessage(Statusbar1.Handle, SB_GETRECT, 1, Integer(@PANELRECT));
  With PanelRect do
    progressbar1.setbounds(left, top, right - left, bottom - top);
end;

her kommer så min fejl kode jeg får...

[Pascal Error] Unit3.pas(46): E2003 Undeclared identifier: 'SB_GETRECT'
[Pascal Fatal Error] Project3.dpr(5): F2063 Could not compile used unit 'Unit3.pas'