procedure InitializeISO(var TransferHeader: TTransfer; var HeaderEncoding: char; var CharSet: string);