Пробовал так как вы говорите ошибка
Tparameter does not contain a mamber named AsString
[dcc32 Error] AddUnit.pas(75): E2003 Undeclared identifier: 'AsString'
И так делал
Код:
Adoquery.parameters. parambyname('par').DataType:=ftString;
Adoquery.parameters. parambyname('par').value:=edit.text;
Ошибка как в первом посте