[vtdeleon]

SAludos

Dejen que delphi se encargue de esto:

Código Delphi [-]
with TuQueryODataset do begin
 if active then close;
 SQL.Clear;
 SQL.Add('Select reservacredito, fecha, importe, satisfaccion');
 SQL.Add('From tpedidos');
 SQL.Add('where empresa=:emp');
 ParamByName('emp').AsString:=DBEcodigo.Text;//O asSInteger
 Open;
end; //with TuDataset