Criando tabelas em tempo de execução 5

If FileExists('c:contatoscontatos.db')=false then
begin
TableContatos.Close;
TableContatos.DatabaseName:='c:contatos';
TableContatos.TableName:='Contatos';
TableContatos.TableType:=ttParadox;
TableContatos.FieldDefs.Clear;
TableContatos.FieldDefs.Add('Cod',ftAutoInc,0,false);
TableContatos.FieldDefs.Add('Contato',ftString,50,false);
TableContatos.FieldDefs.Add('Telefone',ftString,12,false);
TableContatos.FieldDefs.Add('Curso',ftString,20,false);
TableContatos.FieldDefs.Add('Observacao',ftMemo,100,false);
TableContatos.IndexDefs.Clear;
TableContatos.IndexDefs.Add('iCod','Cod',[ixPrimary,ixUnique]);
TableContatos.IndexDefs.Add('iContato','Contato',[ixUnique]);
TableContatos.CreateTable;
TableContatos.Open;
ShowMessage('As tabelas foram criadas com êxito!');
end
else
begin
TableContatos.Close;
TableContatos.DataBaseName:='C:contatos';
TableContatos.TableName:='contatos.db';
TableContatos.Open;
end;