How to create toolbar window

//How to create "toolbar" window
procedure TForm2.FormCreate(Sender: TObject);
begin
 SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;