function TdOPCSvr.GetServerStateStr: string; var s : integer; begin
= ''; S := GetState.ServerState; if (S <= 5) and (S >= 1) then
= string(OPCStateStr[S]); end;
GetState returns global information about the server.
TServerStateRec