Код:
ADOQuery2.SQL.Text:='select fam from aaa where Code=:Code';
ADOQuery2.Parameters.ParamValues['Code'] := Edit3.Text;
ADOQuery2.ExecSQL;
Я может чего не понимаю, но нафига это все наворочено?
Если предполагается получить fam из ADOQuery2 то надо ADOQuery2.Open или ADOQuery2.Active := True;
Так ведь не похоже на то, т.к. дальше-то все это героически убивается.
Код:
ADOQuery2.SQL.Text:='select * from aaa';
ADOQuery2.Active:=False;