Можете подсказать как создать в Delphi базу данных.

Я делаю следующее:

Пуск->Настройка->Панель управления->BDE Administrator
object->new->ok(standard)->(PATH) D:\bd

Открываю Delphi, пишу следующий код:

procedure TForm1.FormCreate(Sender: TObject);
begin
with Table1 do begin
Active := False;
DatabaseName := 'd:\bd';
TableType := ttParadox;
TableName := 'CustInfo';
if not Table1.Exists then begin
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := 'Field1';
DataType := ftInteger;
Required := True;
end;
with AddFieldDef do begin

Name := 'Field2';
DataType := ftString;
Size := 30;
end;
end;
with IndexDefs do begin
Clear;
with AddIndexDef do begin
Name := '';
Fields := 'Field1';
Options := [ixPrimary];
end;
with AddIndexDef do begin
Name := 'Fld2Indx';
Fields := 'Field2';
Options := [ixCaseInsensitive];
end;
end;
CreateTable;
end;
end;

end;

И выдает ошибку: Project Project1.exe raised exception class EDBEngineError with message 'Path not found. File: C:\Program Files\Common Files\Borland Shared\Data\CustInto.DB'. Process stopped. Use Step or Run to Continue.

И: Path not found. File: C:\Program Files\Common Files\Borland Shared\Data\CustInto.DB

Подскажите пожалуйста, где у меня ошибка