Открытие файла программой по умолчанию

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int iFileHandle;
  int iFileLength;
  int iBytesRead;
  char *pszBuffer;
  if (OpenDialog1->Execute())
  {
    try
    {
//Читаем файл
      iFileHandle = FileOpen(OpenDialog1->FileName, fmOpenRead);
      iFileLength = FileSeek(iFileHandle,0,2);
      FileSeek(iFileHandle,0,0);
      pszBuffer = new char[iFileLength+1];
      iBytesRead = FileRead(iFileHandle, pszBuffer, iFileLength);
      FileClose(iFileHandle);
 
      Memo1->Text = pszBuffer; // Выводим в верхнее окошко
 
      char seps[] = "\"\" ,.\t\n"; //массив разделителей
      char small[] = "aeiou"; //массив гласных
      // Идем посимвольно весь текст
      for (int i = 1; i < iBytesRead; i++)
      {
        // если предыдущий символ - разделитель, а текущий - гласный, то переводим в верхний регистр
        if((strchr(seps, pszBuffer[i-1]))&&(strchr(small, pszBuffer[i])))
          pszBuffer[i] = toupper(pszBuffer[i]);
      }
      Memo2->Text = pszBuffer; // Выводим в нижнее окошко
      delete [] pszBuffer;
    }
    catch(...)
    {
      Application->MessageBox("Ошибка при обработке файла", "Ошибка!", IDOK);
    }
  }
 
}
//---------------------------------------------------------------------------