void BildirimleriYukle;

var

  SqlMetni : String;

{

  if (Clomosy.GlobalVariableString == '')

  {

    BosDurumPanel.Visible = True;

    BosBaslikLbl.Text = 'Bildirimleri görmek için giriş yapmalısınız.';

    Exit;

  }

 SqlMetni = 'SELECT TOP 5 BildirimID, GonderenKullanici, Mesaj, Durum, ' +

           'CONVERT(VARCHAR, Tarih, 120) AS TarihStr FROM Bildirimler WHERE AliciKullanici = ' +

           QuotedStr(Clomosy.GlobalVariableString) + ' ORDER BY Tarih DESC';

  Qry = TClSqlQuery.Create(nil);

  Qry.Connection = Clomosy.DBSQLServerConnection;

  Qry.SQL.Text = SqlMetni;

  Qry.Open;

  KayitSayisi = 0;

  TumKartlariGizle;

  while (NOT Qry.Eof)

  {

    KayitSayisi = KayitSayisi + 1;

    if (KayitSayisi == 1)

    {

      Kart1Panel.Visible = True;

      Kart1BildirimID = Qry.FieldByName('BildirimID').AsInteger;

      Kart1Gonderen = Qry.FieldByName('GonderenKullanici').AsString;

      Kart1Durum = Qry.FieldByName('Durum').AsString;

      Kart1GonderenLbl.Text = Kart1Gonderen;

      Kart1MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart1TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

      if (Kart1Durum == 'Beklemede')

      {

        Kart1DurumLbl.Text = Chr($23F3) + ' Onay Bekliyor';

        Kart1DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#D97706');

        Kart1DurumLbl.SetclProSettings(Kart1DurumLbl.clProSettings);

        Kart1OnaylaBtn.Visible = True;

        Kart1ReddetBtn.Visible = True;

        Kart1MesajBtn.Visible = False;

      }

      else if (Kart1Durum == 'Onaylandi')

      {

        Kart1DurumLbl.Text = Chr($2705) + ' Onaylandı';

        Kart1DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#16A34A');

        Kart1DurumLbl.SetclProSettings(Kart1DurumLbl.clProSettings);

        Kart1OnaylaBtn.Visible = False;

        Kart1ReddetBtn.Visible = False;

        Kart1MesajBtn.Visible = True;

      }

      else

      {

        Kart1DurumLbl.Text = Chr($274C) + ' Reddedildi';

        Kart1DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#DC2626');

        Kart1DurumLbl.SetclProSettings(Kart1DurumLbl.clProSettings);

        Kart1OnaylaBtn.Visible = False;

        Kart1ReddetBtn.Visible = False;

        Kart1MesajBtn.Visible = False;

      }

    }

    if (KayitSayisi == 2)

    {

      Kart2Panel.Visible = True;

      Kart2BildirimID = Qry.FieldByName('BildirimID').AsInteger;

      Kart2Gonderen = Qry.FieldByName('GonderenKullanici').AsString;

      Kart2Durum = Qry.FieldByName('Durum').AsString;

      Kart2GonderenLbl.Text = Kart2Gonderen;

      Kart2MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart2TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

      if (Kart2Durum == 'Beklemede')

      {

        Kart2DurumLbl.Text = Chr($23F3) + ' Onay Bekliyor';

        Kart2DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#D97706');

        Kart2DurumLbl.SetclProSettings(Kart2DurumLbl.clProSettings);

        Kart2OnaylaBtn.Visible = True;

        Kart2ReddetBtn.Visible = True;

        Kart2MesajBtn.Visible = False;

      }

      else if (Kart2Durum == 'Onaylandi')

      {

        Kart2DurumLbl.Text = Chr($2705) + ' Onaylandı';

        Kart2DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#16A34A');

        Kart2DurumLbl.SetclProSettings(Kart2DurumLbl.clProSettings);

        Kart2OnaylaBtn.Visible = False;

        Kart2ReddetBtn.Visible = False;

        Kart2MesajBtn.Visible = True;

      }

      else

      {

        Kart2DurumLbl.Text = Chr($274C) + ' Reddedildi';

        Kart2DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#DC2626');

        Kart2DurumLbl.SetclProSettings(Kart2DurumLbl.clProSettings);

        Kart2OnaylaBtn.Visible = False;

        Kart2ReddetBtn.Visible = False;

        Kart2MesajBtn.Visible = False;

      }

    }

    if (KayitSayisi == 3)

    {

      Kart3Panel.Visible = True;

      Kart3BildirimID = Qry.FieldByName('BildirimID').AsInteger;

      Kart3Gonderen = Qry.FieldByName('GonderenKullanici').AsString;

      Kart3Durum = Qry.FieldByName('Durum').AsString;

      Kart3GonderenLbl.Text = Kart3Gonderen;

      Kart3MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart3TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

      if (Kart3Durum == 'Beklemede')

      {

        Kart3DurumLbl.Text = Chr($23F3) + ' Onay Bekliyor';

        Kart3DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#D97706');

        Kart3DurumLbl.SetclProSettings(Kart3DurumLbl.clProSettings);

        Kart3OnaylaBtn.Visible = True;

        Kart3ReddetBtn.Visible = True;

        Kart3MesajBtn.Visible = False;

      }

      else if (Kart3Durum == 'Onaylandi')

      {

        Kart3DurumLbl.Text = Chr($2705) + ' Onaylandı';

        Kart3DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#16A34A');

        Kart3DurumLbl.SetclProSettings(Kart3DurumLbl.clProSettings);

        Kart3OnaylaBtn.Visible = False;

        Kart3ReddetBtn.Visible = False;

        Kart3MesajBtn.Visible = True;

      }

      else

      {

        Kart3DurumLbl.Text = Chr($274C) + ' Reddedildi';

        Kart3DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#DC2626');

        Kart3DurumLbl.SetclProSettings(Kart3DurumLbl.clProSettings);

        Kart3OnaylaBtn.Visible = False;

        Kart3ReddetBtn.Visible = False;

        Kart3MesajBtn.Visible = False;

      }

    }

    if (KayitSayisi == 4)

    {

      Kart4Panel.Visible = True;

      Kart4BildirimID = Qry.FieldByName('BildirimID').AsInteger;

      Kart4Gonderen = Qry.FieldByName('GonderenKullanici').AsString;

      Kart4Durum = Qry.FieldByName('Durum').AsString;

      Kart4GonderenLbl.Text = Kart4Gonderen;

      Kart4MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart4TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

      if (Kart4Durum == 'Beklemede')

      {

        Kart4DurumLbl.Text = Chr($23F3) + ' Onay Bekliyor';

        Kart4DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#D97706');

        Kart4DurumLbl.SetclProSettings(Kart4DurumLbl.clProSettings);

        Kart4OnaylaBtn.Visible = True;

        Kart4ReddetBtn.Visible = True;

        Kart4MesajBtn.Visible = False;

      }

      else if (Kart4Durum == 'Onaylandi')

      {

        Kart4DurumLbl.Text = Chr($2705) + ' Onaylandı';

        Kart4DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#16A34A');

        Kart4DurumLbl.SetclProSettings(Kart4DurumLbl.clProSettings);

        Kart4OnaylaBtn.Visible = False;

        Kart4ReddetBtn.Visible = False;

        Kart4MesajBtn.Visible = True;

      }

      else

      {

        Kart4DurumLbl.Text = Chr($274C) + ' Reddedildi';

        Kart4DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#DC2626');

        Kart4DurumLbl.SetclProSettings(Kart4DurumLbl.clProSettings);

        Kart4OnaylaBtn.Visible = False;

        Kart4ReddetBtn.Visible = False;

        Kart4MesajBtn.Visible = False;

      }

    }

    if (KayitSayisi == 5)

    {

      Kart5Panel.Visible = True;

      Kart5BildirimID = Qry.FieldByName('BildirimID').AsInteger;

      Kart5Gonderen = Qry.FieldByName('GonderenKullanici').AsString;

      Kart5Durum = Qry.FieldByName('Durum').AsString;

      Kart5GonderenLbl.Text = Kart5Gonderen;

      Kart5MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart5TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

      if (Kart5Durum == 'Beklemede')

      {

        Kart5DurumLbl.Text = Chr($23F3) + ' Onay Bekliyor';

        Kart5DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#D97706');

        Kart5DurumLbl.SetclProSettings(Kart5DurumLbl.clProSettings);

        Kart5OnaylaBtn.Visible = True;

        Kart5ReddetBtn.Visible = True;

        Kart5MesajBtn.Visible = False;

      }

      else if (Kart5Durum == 'Onaylandi')

      {

        Kart5DurumLbl.Text = Chr($2705) + ' Onaylandı';

        Kart5DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#16A34A');

        Kart5DurumLbl.SetclProSettings(Kart5DurumLbl.clProSettings);

        Kart5OnaylaBtn.Visible = False;

        Kart5ReddetBtn.Visible = False;

        Kart5MesajBtn.Visible = True;

      }

      else

      {

        Kart5DurumLbl.Text = Chr($274C) + ' Reddedildi';

        Kart5DurumLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#DC2626');

        Kart5DurumLbl.SetclProSettings(Kart5DurumLbl.clProSettings);

        Kart5OnaylaBtn.Visible = False;

        Kart5ReddetBtn.Visible = False;

        Kart5MesajBtn.Visible = False;

      }

    }

    Qry.Next;

  }

  Qry.Close;

  Qry.Free;

  BosDurumPanel.Visible = (KayitSayisi == 0);

}

kodumun bu kısmında hata veriyor SQL Serverda  ilanlar tablosunda durum olmasına rağmen hata mesajı bu RUNTIME ERROR

File library 07_uBildirimler: Invalid column name "Durum". when evaluating instruction CallProc ($FFFFFFFF,$0,$3A39EBC,$1,"Open").

Stack content is: [Null,Null,Null,Null...].

Source position: 134,11

Position: 134, 11