{
Clear all strings
}
procedure ClearStrings;
begin
 s:='';
 StdIn_Line:='';
 Click_Info:='';
 Click.Cmnd:='';    Click.Data:='';    Click.Sensor:='';  Click.Device:='';
 Click.Window:='';  Click.Value:='';   Click.Curve:='';   Click.Tag:='';
 Click.Guard:='';   Click.User:='';    Click.Host:='';    Click.IP:='';
 Click.MAC:='';     Click.newValue:='';
 WEB_Clear;
 if runcount=1 then fixmaxavail:=maxavail;
 if isinf(runcount) then
 if maxavail<>fixmaxavail then Trouble('String Manager Leak = '+str(fixmaxavail-maxavail));
end;
