Число в шестнадцатиричном виде

if(OpenDialog1->Execute())
    {
        TFileStream *file=new TFileStream(OpenDialog1->FileName,fmOpenRead);
        Edit1->Text = ChangeFileExt(ExtractFileName(OpenDialog1->FileName), "");
        Edit2->Text = IntToStr(file->Size);
 
        delete file;
 
    }

Edit2->Text =  IntToHex(file->Size, 4);// IntToStr(file->Size);

Edit2->Text =  "0x" + IntToHex(file->Size, 8);

short a = 0xAABB;
Edit1->Text = IntToHex(a,4);

short a = 0xFFFF;
Edit1->Text = IntToHex(a);

int x;
if (!TryStrToInt("0x" + Edit->Text, &x)) 
  ShowMessage("Ошибка преобразования");

#include <vcl.h>
#include "Unit1.h"
#pragma resource "*.dfm"
#include <fstream>
TForm1 *Form1;
String ori = "";
int stop=0;
int size;
DynamicArray<unsigned char> arr;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if(!OpenDialog1->Execute()) return;                     //Если файл не открыт, выход из функции
   ori = OpenDialog1->FileName;                            //Имя файла
   Edit1->Text = ChangeFileExt(ExtractFileName(ori), "");  //Имя файла без пути
   TFileStream *str=new TFileStream(ori,fmOpenRead);       //Открываю файл для чтения
   size = str->Size;                                         //Размер файла
   Edit2->Text = IntToHex(size,1);                           //Размер файла в формате HEX
   arr.Length=size;                                          //Задаю размер для динамического массива
   str->ReadBuffer(arr,size);                                //Запись в массив
   delete str;                                             //Удаляю стрим, закрываю файл
   unsigned short sum16=0;
   for(int q=0;q<size;q++)                                   //Чексумма 16 файла
   {
      sum16+=arr[q];
   }
   Edit3->Text = IntToHex(sum16);
   stop=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    if(stop==0){return;}
    if(!SaveDialog1->Execute())return;
    String temp = SaveDialog1->FileName + ".bin";
    TFileStream *str=new TFileStream(temp,fmCreate);        //Создаю новый файл и открываю
    if(stop==1)
    {
        stop++;
        for(int a=0;a<size-1;a+=2)                          //Делаю свап
        {
           unsigned char tempbyte;
           tempbyte = arr[a];
           arr[a]= arr[a+1];
           arr[a+1]=tempbyte;
        }
    }
    str->WriteBuffer(arr,size);
    delete str;
}