Fórum Delphi Firebird, salvar e imediatamente imprimir o registro #366390

Delphi e Firebird 2.0 conexao componente IBDAC

Tenho a tabela AIH com o campo chave primaria id_aih, com o autoincremento feito no proprio Firebird.

no Form tem os botoes (salvar, excluir...e tambem o botao imprimir) deixei o campo id_aih requerid = false.

o botao salvar funciona:
DatMod.Aih.Post;

mas o botão imprimir não funciona se eu na hora que salvar mandar imprimir o mesmo registro, da o seguinte erro:

´is not a valid integer value´. Process stopped. Use Step or Run to continue.

mas se depois que eu salvar, navegar pelos campos ele imprime qualquer um deles.

botao imprimir:
procedure TAih.Button5Click(Sender: TObject);
begin
MyQueryAIH.Active := False;
MyQueryAIH.SQL.Clear;
MyQueryAIH.SQL.Add(´SELECT * from aih´);
MyQueryAIH.SQL.Add(´where id_aih = :cod´);
MyQueryAIH.Params[0].AsInteger := StrToInt(DBedit1.Text);
MyQueryAIH.Open;
MyQueryAIH.Active:=true;
MyQueryAIH.Active := False;
end;