[[Lepe]]

Como no sé el error que te da, pues no puedo ayudar mucho. Además has supuesto u omitido muchos detalles, así que menos aún.

Código Delphi [-]

with Query do
begin
  with SQL do
  begin
    datamodule.tabla_original.close;
    clear;
    datamodule.tabla_original.open; // no hace falta.... pero bueno.
    Add('Select * from NombreTabla');
    Add('where (codigo = :codigo)');
    ParamByName ('codigo').AsInteger :=datamodule.tabla_temporal.codigo;
    Open;
  end;
end;
DbGrid.DataSource := DataSource; // este señor ¿quien es  y a donde apunta?

NombreTabla no es "tabla_original" porque ese es el nombre de delphi, es decir del componente TTable. Tienes que especificar el nombre real de la tabla

Tampoco puedo decir mucho más porque no has dicho que clase de Base de datos usas, paradox, firebird, etc.

Saludos