[Delphi] [MSDART.DLL] BTS PTI

SAlut à tous !! Voilà un petit problème delphi

-------------

J'utilise un ADOConnection et ADOquery, j'obtient un message d'erreur au bout de 3 fois, quand je reviens sur ma tabsheet 2
"Le projet universcom.exe a provoqué une classe d'execption EAaccssViolation avec le message 'Violation d'accès à l'adresse 768E92D dans le module 'MSDART.DLL'. Lecture de l'adresse 00000020'

------------

Voici le code

procedure TForm2.TabSheet2Show(Sender: TObject);
var
num,cpt:integer;
begin
{ajout dans l'objet}

{ajout dans la base}

{gestion du numéro}


ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('Select Count(num_site) From delph_site');
ADOQuery1.Open;

num:=ADOQuery1.Fields.Fields[0].AsInteger;
cpt:=num+1;
edit1.Text:=IntToStr(cpt);

showmessage(IntToStr(cpt));
end;

------

Merci d'avance !!