Динамическое создание таблиц.Invalid field size

[Студло]

Здравствуйте господа программисты. Пытаюсь динамически создать таблицу однако вылезает ошибка - Invalid field size.
Вот код

procedure TForm14.Button1Click(Sender: TObject);
var
Novgod: TTable;
begin
if (trim(Edit1.text)<>'') then
begin
Novgod:=TTable.Create(nil);
with Novgod do
begin
DatabaseName:='dbdemos';
TableName:=Edit1.text;
TableType:=ttDBase;
with FieldDefs do
begin
Add('N_PR', ftInteger, 3, true);
Add('ID_PED', ftInteger, 2, true);<< пишет что тут.
Add('ID_OB', ftInteger, 3, true);
Add('KOL_NACH', ftInteger, 3, true);
Add('KOL_SER', ftInteger, 3, true);
Add('KOL_KON', ftInteger, 3, true);
Add('POLN_REAL', ftInteger, 3, false);
Add('RESULT', ftString, 60, false);
end;
with IndexDefs do
begin
Add('N_PR', 'N_PR',[ixPrimary]);
end;
CreateTable;
end;
end
else
showmessage('Ââåäèòå íàçâàíèå äëèííîé íå áîëåå 8 ñèìâîëîâ');
end;

Впервые динамически таблицу создаю. Подобную процедуру в интернете вычетал. Чего ему нехватает.
Не хотелось бы создавать еще одну тему для этого вопроса поэтому сразу здесь отпишу коль уж спрашивать начал. Где прописать путь к папке в которой должна создаться таблица?

[Stilet]

Add('N_PR', ftInteger, 3, true);

Для Integer размер не указывается.

Add('N_PR', ftInteger);

Понял?

<< пишет что тут.

Нет. Ошибка совсем не на той строке а на строке выше.

[Студло]

Все заработало спасибо большое Но сколько же тогда у поля размер? попытался открыть Database Desktop'ом - выдал ошибку мол Invalid parametr. Такие таблицы просматривать нельзя?

[Stilet]

попытался открыть Database Desktop'ом

Нашел чем пользоваться... Более кривой программы чем эта я еще не видел.
А размер стандартный целочисленный байта 4 будет.
А размер то тебе зачем?

[Студло]

Ну собсно должен же я знать что я создаю Еще раз спасибо большое Отправляюсь работать.