[[basti]]

Puedes usar parámetros:

Código Delphi [-]
  query.sql.Add('select * from sujetos where apellido = :rApellido');
  query.ParamByName('rApellido').AsString := trim(ape);