Как узнать размеры изображения в пикселях (N x N) не загружая его в память

int HexStrToInt(AnsiString hexstr)
{
    hexstr = AnsiString("0x") + hexstr;
    return hexstr.ToInt();
};
 
 
void __fastcall TForm1::Button12Click(TObject *Sender)
{
    AnsiString Path = ExtractFileDir(Application->ExeName) + "\\file\\1.jpg";
    FILE *fp = fopen(Path.c_str() , "rb");
    if(fp == NULL)
    {
        Memo1->Lines->Add("Ошибка открытия файла");
        return;
    }
    char buf[2];
    while( !feof(fp) )
    {
        fread(&buf, 1, 2, fp);
        if(IntToHex(buf[0], 2) == "FFFFFFFF" && IntToHex(buf[1], 2) == "FFFFFFC0")
        {
            char buff[7];
            fread(&buff, 1, 7, fp);
            AnsiString HEX(" ");
            HEX += IntToHex(buff[3], 2);
            HEX += " ";
            HEX += IntToHex(buff[4], 2);
            HEX = StringReplace(HEX, " FFFFFF", "", TReplaceFlags() << rfReplaceAll);
            HEX = StringReplace(HEX, " ", "", TReplaceFlags() << rfReplaceAll);
            Memo1->Lines->Add(HEX);
            Memo1->Lines->Add("Высота - " + IntToStr(HexStrToInt(HEX)));
            HEX = " ";
            HEX += IntToHex(buff[5], 2);
            HEX += " ";
            HEX += IntToHex(buff[6], 2);
            HEX = StringReplace(HEX, " FFFFFF", "", TReplaceFlags() << rfReplaceAll);
            HEX = StringReplace(HEX, " ", "", TReplaceFlags() << rfReplaceAll);
            Memo1->Lines->Add(HEX);
            Memo1->Lines->Add("Ширина - " + IntToStr(HexStrToInt(HEX)));
            break;
        }
    }
    fclose(fp);
}