kann TFileStream Binäre Dateien einlesen???

Kann TFileStream auch binäre Dateien einlesen? Was muss ich dazu an meinem Programm ändern? Bin dankbar für alle hilfreichen Tips.

short i;
ifstream dat_ein;
OpenDialog1->DefaultExt = "SPE";
OpenDialog1->FileName = "*.spe";
if (OpenDialog1->Execute())
  {
  dat_ein.open(OpenDialog1->FileName.c_str() ,ios::binary|ios::in);
  StatusBar1->Color=clGreen;
  StatusBar1->SimpleText=(OpenDialog1->FileName);
   if (!dat_ein)
      {
      StatusBar1->Color=clRed;
      StatusBar1->SimpleText=("Fehler beim laden der Datei!");
      }
    while (!dat_ein.eof())//Endlosschleife bei Fehler nach open
      {
      ListBox1->Items->Add(i);
      dat_ein.read((char*)&i,sizeof(short));
      }
   }
dat_ein.close();

DerAltenburger

Setz die Schleife in den ELSE- Zweig!