Consulta vacia

[chipsoni]

Tengo que hacer una consulta y mostrar una entrada en la tabla, tengo esto:

Código Delphi [-]
with Query do
  begin
   with SQL do
     begin
       DataModule.tdemanda.close;
       Clear;
       Datamodule.tdemanda.open;
       Add('Select * from tdemanda');
       Add('where codigo= :codigo');
       ParamByName('codigo').Astring:= StrToInt(codigo.Text);
       Open;
     end;
  end;

With Query1 do
  begin
    if (DataModule.tdemanda['ttipo_demanda'].FieldValue=1) then
       with SQL do
          begin
......

Bien, me peta en ejecución, en la linea del if, con el error 'Invalid variant operation', ademas de no saber pque he hecho mal, necesito sacar un mensaje si el codigo introducido en el Edit 'codigo', no existe en la tabla.

¿Alguien me puede ayudar?