Почему если добавлять значение в БД через переменную, то добавляется «ADOQuery1», а если напрямую, то нормальное значение?

Question

[sorry_i_noob]

Здравствуйте.
Есть такой код

procedure TForm1.FramePositionsAdd1ButtonAddClick(Sender: TObject);
var
  Name: String;
begin
    Name := FramePositionsAdd1.EditName.Text;

    with FramePositionsAdd1.ADOQuery1 do
    begin;
    SQL.Clear;
    SQL.Text := 'INSERT INTO Должности ' +
    '(Наименование) ' +
    'VALUES ' +
    '(:title)';
    Parameters.ParamByName('title').Value := Name;
    ExecSQL;
    end;
end;

Значение в БД добавляется, но вместо FramePositionsAdd1.EditName.Text добавляется строка "ADOQuery1".
Я попробовал убрать переменную Name. Меняется одна строчка:

Parameters.ParamByName('title').Value := FramePositionsAdd1.EditName.Text;

И все начинает добавляться правильно. В чем проблема?

Answer 1

[Exteris]

WITH - зло.
Вы добавляете в БД значение FramePositionsAdd1.ADOQuery1.Name

Answer 2

[Константин Цветков]

procedure TForm1.FramePositionsAdd1ButtonAddClick(Sender: TObject);
begin
  FramePositionsAdd1.ADOQuery1.SQL.Text := 'INSERT INTO Должности (Наименование) ' +
      'VALUES ''' + FramePositionsAdd1.EditName.Text + ''''
  FramePositionsAdd1.ADOQuery1.ExecSQL;
end;