[Bit]

Доброго времени суток.
Подскажите пожалуйста можно ли сделать параметризированный запрос, значение которого изменялось бы компонентом TEdit. Вот моя зарисовка которая не работает.

Свойство SQL:

Код:

Select * from Client where Fam = :AAA

Процедура присвоения значения параметру :AAA

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
begin
Query1.Close;
Query1.Prepare;
a:='Edit1.Text';
Query1.Params[0].AsString := 'a';
Query1.Open;
end;

В чем ошибка? И как правильно нужно сделать?
Помогите пжлст

[movnet]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
begin
Query1.Close;
Query1.Prepare;
a:=Edit1.Text;
Query1.Params[0].AsString := a;
Query1.Open;
end;

[Bit]

Большое спасибо)))