Firebird Ondalık Sorunu

[sunbeki]

Değerli Hocam kod çalışmadı. Access violation hatası verdi. 

Kodlar şu şekilde;

     with DataModule1.IBQuery1 do
     begin
        Database := DataModule1.IBDatabase1 ;
        SQL.Clear ;
        SQL.Add('Select * from TBL_YEM_BITKILERI ') ;
        SQL.Add('Where TCNO = : PTCNO ') ;
        ParamByName('PTCNO').AsString := AktifKisiTCNo.Text ;
        SQL.Add('Order By ADA,PARSEL,EKILEN_URUN COLLATE PXW_TURK, TAKSIT_NO') ;
        Open ;

        Active := True ;

        TFloatField( Fields[6] ).DisplayFormat := '#####0.000';

        DataModule1.Datasource1.DataSet := DataModule1.IBQuery1;
        DBGrid1.DataSource := DataModule1.Datasource1 ;
     end;