with Query.SQL do begin add('Select * from Transportes.db'); add('Where Tipo=:tipo'); end; Query.ParamByName('tipo').AsString := 'Carga';