Проблема с базой данных

[T.A.T.A.R.I.N]

Написал программу! Создал алиас. Создал таблицу. Программа называется "Магазин". Суть её заключается в том что она показывает товар его цену и его фотку.Трабла как я понял в загрузки фото! После компиляции мне выдает ошибку, Которая как я понял из за того что фото не загружется или еще что то случилось с фотой!
Код программы:

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <dstring.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
 __fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormShow(TObject *Sender)
{ try
{
Table1->Open(); // открыть базу данных
}
catch ( EDBEngineError &e)
{
ShowMessage("Для доступа к базе данных надо создать "
"псевдоним stock");
}
}
//-------------------------------------------------------
void __fastcall TForm1::DataSource1StateChange(TObject *Sender)
{  if ( DataSource1->State == dsBrowse)
StatusBar1->Panels->Items[1]->Text = "Просмортр";
else
StatusBar1->Panels->Items[1]->Text = "Редактирование";
// событие At'terScroll возникает после перехода к другой
// записи (смены текущей записи)
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Table1AfterScroll(TDataSet *DataSet)
{AnsiString Picture;
if ( Table1->RecNo != -1)
{StatusBar1->Panels->Items[0]->Text =
"Запись: " + IntToStr( Table1->RecNo );
/* Доступ к значению поля текущей записи можно
получить через свойство FieldValue. Если поле Image
пустое, то при попытке чтения из него данных
возникает ошибка. */
try {
Picture =
Table1->Database->Directory +
DataSet->FieldValues["Image"];
}
catch (EVariantTypeCastError &e) {
Image1->Visible = false;
return;
}
ShowPhoto(Picture);
}
else
{ StatusBar1->Panels->Items[0]->Text = "";
StatusBar1->Panels->Items[1]->Text = "Новая запись";
Image1->Visible = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ShowPhoto(AnsiString Picture)
{  try
{
Image1->Picture->LoadFromFile(Picture);
}
catch ( EFOpenError &e)
{
// ничего не делаем, просто не отображаем картинку
Image1->Visible = false;
return;
}
Image1->Visible = true;
}
//----------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  if (Table1->State == dsEdit)
// таблица в режиме редактирования
Table1->Post(); // сохранить внесенные изменения
}
//---------------------------------------------------------------------------

Подскажите что делать. Заранее благодарен.

[T.A.T.A.R.I.N]

В общем. База данных работает - это я сделал. Только не загружает картинку.Программа называется Магазин в ней список товаров цена описание и картинка. И при смене товара не выдает ошибку, что не загружается картинка. Как её исправить не подскажите?