zeilen werden ignoriert...

[Sulustaner2004]

morgen zusammen...
habe (mal wieder) ein problem !!! an und für sich nichts neues...aber diesmal irgnoriert delphi einfach zeilen in meinem quelltext ohne das ich weiß warum...er überließt sie einfach...ohne das diese zeilen auskommentiert sind...
und das andere problem was ich habe ist das er nicht in die datenbank schreibt !!!!

Delphi-Quellcode:

procedure TForm1.cb_takeClick(Sender: TObject);
Var
  versflid, SetStr                      : String;
  ProcessedRecs, i, SetCount            : Integer;
  SetVals                               : Array Of String;
Begin
  {If (tb_Bearbeiter.Text = '') Then
    ShowMessage('Bitte was eintragen.');}

  // Wenn SetStr beschrieben wurde -> baue UPDATE-Statement... 
  If SetStr <> '' Then 
  Begin 
    With ADOQuery1 Do 
    Begin 
      SQL.Text := 
        'Update dbo_VFL_VERZ_TEMP t' + #10 + 
        'Set   ' + SetStr + #10 + 
        'WHERE  t.Bearbeiter = :i_Versuch'; 
      Prepared := True; 
      // Werte der Paramter :i_F(1 - ...) 
      For i := 0 To pred(SetCount) Do 
        Parameters.ParamByName('i_F' + IntToStr(i)).Value := SetVals[i]; 
        // Hier
        Parameters.ParamByName('i_Versuch').Value := TB_Bearbeiter.Text;
      // Ausführen 
      ExecSQL; 

    End; 

    ///////diese kommenden zeilen ignoriert delphi einfach///////////

      label27.Caption := tb_Bearbeiter.Text;
      label28.Caption:=tb_nr_dez.Text;
      label29.Caption:=tb_nr_abt.Text;
      label30.Caption:=tb_x_coord.Text;
      label31.Caption:=tb_y_coord.Text;
      label32.Caption:=tb_struktur.Text;
      label33.Caption:=tb_id.Text;
      label34.Caption:=tb_begr.Text;
      label35.Caption:=tb_partner.Text;
      label36.Caption:=tb_beginn.Text;
      label37.Caption:=tb_end.Text;
      label38.Caption:=tb_status.Text;
      label39.Caption:=tb_ziel.Text;
      label40.Caption:=tb_meth.Text;
      label41.Caption:=tb_beschr.Text;
      label42.Caption:=tb_param.Text;
      label43.Caption:=tb_flbz.Text;
      label44.Caption:=tb_baumart.Text;
      label45.Caption:=tb_standort.Text;
      label46.Caption:=tb_humus.Text;
      label47.Caption:=tb_fl.Text;
      label48.Caption:=tb_bestgr.Text;
      label49.Caption:=tb_lfn.Text;
      label50.Caption:=tb_land.Text;
      label51.Caption:=tb_ea.Text;

      tb_Bearbeiter.Clear;
      tb_nr_dez.Clear;
      tb_nr_abt.Clear;
      tb_x_coord.Clear;
      tb_y_coord.Clear;
      tb_struktur.Clear;
      tb_id.Clear;
      tb_begr.Clear;
      tb_partner.Clear;
      tb_beginn.Clear;
      tb_end.Clear;
      tb_ea.Clear;
      tb_status.Clear;
      tb_ziel.Clear;
      tb_meth.Clear;
      tb_beschr.Clear;
      tb_param.Clear;
      tb_flbz.Clear;
      tb_baumart.Clear;
      tb_standort.Clear;
      tb_humus.Clear;
      tb_fl.Clear;
      tb_bestgr.Clear;
      tb_lfn.Clear;
      tb_land.Clear;

    End;
  End;

ich hoffe ihr könnt mir wieder helfen...