def00

Hi Guys,
 
I Have a problem with the NextDBGrid and ClientDataSet.
 
The NextDBGrid Columns Have Create to DesignTime and the ClientDataSet to RunTime.
 
The Last 4 Columns are Checkbox Fieds.
I have  the CheckboxFields Option ValueChecked und ValueUnChecked with True and False set without ''.
 
I have In my ClientDataSet are the last 4 fields as Boolean.
 
[Sourcecode]
  Max := 7;
  if not(Max < 0) then
  begin
    ClientDataSet2.Edit;
    for i :=0 to Max do
    begin
      ClientDataSet2.Append;
      ClientDataSet2.FieldByName('ID').AsInteger                             := i + 1;
      ClientDataSet2.FieldByName('Produktionsnummer').AsInteger := 11457 + i;
      ClientDataSet2.FieldByName('Auftragsnummer').AsString        := '1609-00' + IntToStr(i) + 'Pos.1';
      ClientDataSet2.FieldByName('Kunde').AsString                        := 'Imedco';
      ClientDataSet2.FieldByName('Artikel').AsString                         := '124.50' + IntToStr(i);
      ClientDataSet2.FieldByName('Anzahl').AsInteger                      := 12 + i;
      ClientDataSet2.FieldByName('Info1').AsString                           := 'Peraluman 100';
      ClientDataSet2.FieldByName('Info2').AsString                           := '3mm';
      ClientDataSet2.FieldByName('Scheren').AsBoolean                  := True;
      ClientDataSet2.FieldByName('Lasern').AsBoolean                    := False;
      ClientDataSet2.FieldByName('Stanzen').AsBoolean                  := True;
      ClientDataSet2.FieldByName('Kanten').AsBoolean                   := False;
      ClientDataSet2.FieldByName('Fladdern').AsBoolean                := True;
      ClientDataSet2.FieldByName('Schweissen').AsBoolean            := False;
    end;
    ClientDataSet2.Post;
    ed_Auftragsnummer.Text :=ClientDataSet2.FieldByName('Auftragsnummer').AsString;
  end;
[Sourcecode]


help me please ... Thank you