Hay que cambiarle un par de cositas y poner ese codigo asi:
Código Delphi
[-]
procedure TForm1.printreport1Click(Sender: TObject);
begin
with CONSULTABAUTISMO do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM db.bautismos WHERE DCI= :cedula');
ParamByName('cedula').Asinteger:=strtoint(buscar.Text);
Open;
PRINTREPORTBAUTISMOS.Execute;
end;
end;
end.
Si, te fijas hice dos cosas, el parametro cedula en la consulta debe estar pegado a los dos puntos ":" a menos que quieras que el nombre del parametro tenga un espacio (Bueno ademas lo cambie porque si no me mostraba la carita feliz), y luega use StrToInt para pasar de String a Integer.
Por otro lado veo que sos de Colombia y por eso te contare un secreto, si tu haz visto noticias te puedes dar cuenta que los numeros de cedulas van a cambiar y los numeros seran mas largos y creeme que ya hice la prueba con campos enteros y muchas cedulas nuevas no caben en dicho tipo de dato, asi que deberas cambiar a string. (Yo siempre que no voy a hacer operaciones matematicas con numeros los declaro String).
Bueno eso es todo espero te sirva compatriota
.