TrimWhiteSpaces

procedure TrimWhiteSpaces(

  const AText: TKString;

  var AStart: Integer;

  var ALen: Integer;

  const ASet: TKSysCharSet

); overload;

procedure TrimWhiteSpaces(

  var AText: TKString;

  const ASet: TKSysCharSet

); overload;