Consulta con una variable en un Query

[roman]

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

Query.ParamByName('tipo').AsString := 'Carga';

// Saludos