[jhonny]

Ahh, bueno, y para lo del si el codigo no existe en la tabla seria asi:

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;
      if RecordCount = 0 then
      begin
          raise exception.create('El codigo no existe');
      end;
   end;
end;