485 end;

   485 end;

   486 

   486 

   487 procedure chCapture(var s: shortstring);

   487 procedure chCapture(var s: shortstring);

   488 begin

   488 begin

   489 s:= s; // avoid compiler hint

   489 s:= s; // avoid compiler hint

   491 end;

   492 end;

   492 

   493 

   493 procedure chRecord(var s: shortstring);

   494 procedure chRecord(var s: shortstring);

   494 begin

   495 begin

   495 s:= s; // avoid compiler hint

   496 s:= s; // avoid compiler hint