Delphi, синтаксис UPDATE

[DeadWarlock]

Надо прописать синтаксис процедуры редактировани.(SQL запрос)
Есть готовый рабочий код

var ADOQuery1:TADOQuery;
std: string;
begin
Form10.Caption:='Редактирование данных студента';
Form10.Edit1.Text:=DataModule2.ADOTable1.fieldByName('ID_C').AsString;
Form10.Edit2.Text:=DataModule2.ADOTable1.fieldByName('FIO').AsString;
Form10.Edit3.Text:=DataModule2.ADOTable1.fieldByName('DateB').AsString;
Form10.Edit4.Text:=DataModule2.ADOTable1.fieldByName('Address').AsString;
Form10.Edit5.Text:=DataModule2.ADOTable1.fieldByName('Tel').AsString;
if (Form10.ShowModal=mrOK)then
  begin
    ADOQuery1:=TADOQuery.Create(Self);
    ADOQuery1.Connection:=DataModule2.ADOConnection1;
    std:='UPDATE Client SET FIO = "'+Form10.Edit2.Text+'", DateB = "'+Form10.Edit3.Text+'",Address = "'+Form10.Edit4.Text+'", Tel = '+Form10.Edit5.Text+' WHERE ID_C ='+Form10.Edit1.Text;
    ADOQuery1.SQL.Text:=std;
    ADOQuery1.ExecSQL;
    Datamodule2.ADOTable1.Active:=false;
    Datamodule2.ADOTable1.Active:=true;
    ADOQuery1.Free;
  end;
end;

и мой:

var ADOQuery1:TADOQuery;
std: string;
begin
Form6.Caption:='Редактирование';
Form6.Edit1.Text:=DataModule2.ADOTable1.fieldByName('Name').AsString;
Form6.Edit2.Text:=DataModule2.ADOTable1.fieldByName('Janr').AsString;
Form6.Edit3.Text:=DataModule2.ADOTable1.fieldByName('Koli4estvo').AsString;
Form6.Edit4.Text:=DataModule2.ADOTable1.fieldByName('Cena_prokata').AsString;
if (Form6.ShowModal=mrOK)then
  begin
    ADOQuery1:=TADOQuery.Create(Self);
    ADOQuery1.Connection:=DataModule2.ADOConnection1;
    std:='UPDATE kass SET Janr = "'+Form6.Edit2.Text+'", Koli4estvo = "'+Form6.Edit3.Text+'", Cena_prokata = '+Form6.Edit4.Text+' WHERE Name ='+Form6.Edit1.Text;
    ADOQuery1.SQL.Text:=std;
    ADOQuery1.ExecSQL;
    Datamodule2.ADOTable1.Active:=false;
    Datamodule2.ADOTable1.Active:=true;
    ADOQuery1.Free;
    end;
  end;

Выдаёт ошибку - параметр поля Name не имеет значения по умолчанию, что делать даже не знаю((

[Serge_Bliznykov]

а попробуйте так:

.... ' WHERE Name ='+QuotedStr( Form6.Edit1.Text );