function YourTrim(const S: WideString): WideString;var I, L: Integer;begin L := Length(S); I := 1; while (I <= L) and (S <= '¡¡') do Inc(I); if I > L then Result := '' else begin while S[L] <= '¡¡' do Dec(L); Result := Copy(S, I, L - I + 1); end;end;