Hola, mira este código y espero te ayude.
Código Delphi
[-]qtabla:=dbserver+'\@viajes.db';
with data.qapagos do
begin
close;
SQL.Clear;
SQL.ADD('select * from _tabla where referencia = :xreferencia ');
SQL.Text := StringReplace(SQL.Text, '_tabla', qtabla, [rfReplaceAll, rfIgnoreCase]);
parambyname("xreferencia").asinteger:=_referencia;
open;
end;
solo que al formar tu consulta por código no le veo sentido pero esto funciona, correctamente.
ojo. qtabla tiene que ser un variable tipo string