function TPgVariable.FD2PgData(AType: TPgType; ASource: Pointer; ASourceLen: Integer; 
  var ADest: Pointer; var ADestLen: LongWord; var ADestFormat: Integer;
  AByRef: Boolean): Boolean;
......
begin
  ......
  case AType.Id of
    ......
  SQL_NAME,
  SQL_CHAR,
  SQL_BPCHAR,
  SQL_VARCHAR,
  SQL_UNKNOWN,
  SQL_ACLITEM:
    begin
      if (paFixed in AType.Attrs) and Statement.StrsTrim then
        if FEncoding = ecUTF16 then
          while (ASourceLen > 0) and (PWideChar(ASource)[ASourceLen - 1] = ' ') do
            Dec(ASourceLen)
        else
          while (ASourceLen > 0) and (PFDAnsiString(ASource)[ASourceLen - 1] = TFDAnsiChar(' ')) do
            Dec(ASourceLen);
      if Statement.StrsEmpty2Null and (ASourceLen = 0) then
        Result := False;
      if Result then begin
        if (FEncoding = ecANSI) and (Statement.FConnection.Encoder.Encoding = ecANSI) then begin
          iByteLen := ASourceLen * SizeOf(TFDAnsiChar);
          Move(ASource^, ADest^, iByteLen);
        end
        else begin
          pRes := nil;
          iByteLen := Statement.FConnection.Encoder.Encode(ASource, ASourceLen, pRes, FEncoding);
          iMaxChars := ADestLen - 1;
          if FEncoding = ecUTF16 then
            iMaxChars := iMaxChars div SizeOf(WideChar);
          if iByteLen > iMaxChars then
            if Statement.StrsTrim2Len then
              iByteLen := iMaxChars
            else
              ErrorDataTooLarge(ADestLen, iByteLen);
          Move(pRes^, ADest^, iByteLen);
        end;
      end
      else
        iByteLen := 0;
      ADestLen := iByteLen;
    end;
  ......
end;