Hola
Solo un pequeño cambio.
Código Delphi
[-]
TuQuery.Parameters.ParamByName('parametro').Value := Edit1.text;
TuQuery.Parameters.ParamByName('parametro').DataType := ftString;
TuQuery.Open;
No estoy muy seguro si bde acepta ese concepto, de no ser asi, se puede hacer asi:
Código Delphi
[-]
TuQuery.Parameters[0].Value := Edit1.text;
TuQuery.Parameters[0].DataType := ftString;
TuQuery.Open;
Saludos