Codigo que produce un error

[aanil]

Hola mis amigos.

Les presento este codigo que en Delphi 7 lo habia hecho y me funcionaba, ahora estoy usando Delphi 2009 y me produce un error.

Codigo.

Código SQL [-]
Query1.Close;
query1.SQL.Text := ('select CARNET, (NOMBRES+  " "   +APELLIDO1+  " "  +APELLIDO2) AS NOMBRES, 
+CEDULA, FECHA_NAC AS NACIMIENTO, CLINICA  FROM SEMMA WHERE CARNET like:variable 
+or nombre like:variable or apellido1 like:variable or apellido2 like:variable or cedula like:variable');
parameters[0].Value := '%'+edit1.Text +'%';
parameters[1].Value := '%'+edit1.Text +'%';
parameters[2].Value := '%'+edit1.Text +'%';
parameters[3].Value := '%'+edit1.Text +'%';
parameters[4].Value := '%'+edit1.Text +'%';

Query1.Open;

El mensaje de error es el siguiente.

[DCC Error] Unit1.pas(48): E2149 Class does not have a default property

A ver donde esta malo.

Saludos.