Ayuda insertar cadena en otra ?

[Coco_jac]

gracias pero lo resolvi asi

query1.DatabaseName:='D:\Documents and Settings\Administrador\Escritorio\MetusaStock 09-12-05';
sqltxt:='Select importe from cuen01 where cclie=:Codigo and NO_FACTURA='+chr(39)+'F049944'+chr(39);

query1.ParambyName('Codigo').AsString:='VA004';
query1.Open;