Ошибка при создании и (или) записи таблицы

[ProgDel]

Привет всем. При попытке создать / записать таблицу происходит ошибка
invalid use of keyword

procedure TForm5.Button1Click(Sender: TObject);
begin
if FileExists('C:\Program Files\Common Files\Bornand Shared\Database Desktop\WorkDir\Personel.db') = true
then begin
DataModule4.Query1.SQL.Clear;
DataModule4.Query1.SQL.Add('Create Table Personel');
DataModule4.Query1.SQL.Add('(Firm memo,');
DataModule4.Query1.SQL.Add('Representative memo,');
DataModule4.Query1.SQL.Add('Email memo,');
DataModule4.Query1.SQL.Add('Telephone memo,');
DataModule4.Query1.SQL.Add('County memo,');
DataModule4.Query1.SQL.Add('Region memo,');
DataModule4.Query1.SQL.Add('City memo,');
DataModule4.Query1.SQL.Add('Registry memo,');
DataModule4.Query1.SQL.Add('Notice memo);');
DataModule4.Query1.ExecSQL;
end;
if FileExists('C:\Program Files\Common Files\Bornand Shared\Database Desktop\WorkDir\Personel.db') = false
then begin
DataModule4.Query1.Close;
dataModule4.Query1.SQL.Clear;
DataModule4.Query1.SQL.Add('INSERT INTO Personel');
DataModule4.Query1.SQL.Add('(Firm, Representative, Email, Telephone, County, Region, City, Registry, Notice)');
DataModule4.Query1.SQL.Add('Values ("' + Edit1.Text + '"),'+ Edit2.Text + ',' + edit3.Text + ',' +
edit4.Text + ',' + edit5.Text + ',' + edit6.Text + ',' + edit7.Text + ',' + combobox1.Items.Strings[Combobox1.ItemIndex]
+ ',' + memo1.Text);
DataModule4.Query1.ExecSQL;
end;
end;

[mihali4]

if FileExists('C:\Program Files\Common Files\Bornand Shared\Database Desktop\WorkDir\Personel.db') = true
then...
...Create Table Personel

может, все-таки

if not FileExists('C:\Program Files\Common Files\Bornand Shared\Database Desktop\WorkDir\Personel.db') then
...
Create Table Personel

а тут наоборот ?

if FileExists('C:\Program Files\Common Files\Bornand Shared\Database Desktop\WorkDir\Personel.db') then 
...
INSERT INTO Personel

[ProgDel]

Не помогает, та же ошибка.

[mihali4]

А это вам простым английским языком говорят, что негоже использовать зарезервированные слова Region, Registry и т.д.
Свои названия придумать слабо ?
К тому же, это что за конструкция ???

'Values ("' + Edit1.Text + '"),'+ Edit2.Text + ...

[ProgDel]

Хорошо, а как тогда записывать в Values строковое значение?
Ведь при записи оно должно быть в кавычках. И что бы Delphi понял что это строка
надо написать эти кавычки в одинарные кавычки.

DataModule4.Query1.SQL.Add('Values ("' + Edit1.Text +'"),'

красным это одинарные кавычки. Если я в чём то не прав, то напишите как это правильно писать.

[mihali4]

Есть такая функция - QuotedStr...