Arkadaşlar Merhaba Şu konuda yardım edin lutfen kafayı yicem yoksa

project project1.exe raised exception class EacessViolation width message'Access violation at address 004B6B9B in module 'Project1.exe'. Read of address 0000006C'. Process stopped. Use Step or Run to Contine.


F9 yaptıgımda boyle bi hata cıkıyor karşıma bu sql kodunu yazınca bu kodu kaldırdımı bi sorun yok

procedure TForm1.FormCreate(Sender: TObject);
begin
DataModule2.AdoQuery1.Close;
DataModule2.AdoQuery1.SQL.Clear;
DataModule2.AdoQuery1.Sql.Add('select (liste_fiyati-(liste_fiyati*iskontolar.iskonto/100)) as maliyet_fiyati from urunler left join iskontolar on urunler.marka=iskontolar.marka ');
DataModule2.AdoQuery1.Open;

end;

end.

bu kodda mı bir sorun var acaba veritabanına kayıt girmek icin ekledim bu kodu sorun koddaydsa nasıl yazmam gerekiyor bunu

Access veritabanı kullanıyorum acaba onda bi ayarmı yapmam gerekiyor kac gundur uğraşıyorum birşey anlamadım .
__________________