adoquery1.close;
Adoquery1.sql.Text:= 'select * from lín_art '+
'where cod_lin = '+edit1.text+
' and lin_desc = ' +edit2.text;
Adoquery1.open;
If adoquery1.eof then
Begin
Adoquery1.close;
Adoquery1.sql.Text:= 'insert into lin_art Values ('+Edit1.Text+ ','+Edit2.Text+')';
Adoquery1.execsql;
End
End