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

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

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;

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