function VertScrllbar(Hndl: THandle): boolean;
begin
Result := (GetWindowLong(Hndl, GWL_STYLE) and WS_VSCROLL) <> 0;
end;
function HorzScrllbar(Hndl: THandle): boolean;
begin
Result := (GetWindowLong(Hndl, GWL_STYLE) and WS_HSCROLL) <> 0;
end;
// Beispielaufruf
procedure TMainForm.ToolButton12Click(Sender: TObject);
var
vert, horz: boolean;
begin
vert := VertScrllbar(clienthandle);
horz := HorzScrllbar(clienthandle);
// z.B.:
if vert then showmessage('Vertikale Scrollbar ist sichtbar');
end;