Delphi Can

merhaba, yukarıdaki kodun aynısı bende çalışıyor, fielddefs tanımında;
NAME : ADI
DATATYPE : ftstring
SIZE : 100
yaptım, kodun aynını yazdım çalıştı, open yaptıktan sonra close yada free yapmayın. 
kısaca ; 

procedure TForm1.Button1Click(Sender: TObject);
begin
BufDataset1.CreateDataSet;
BufDataset1.Open;
BufDataset1.Append;
BufDataset1.FieldByName('ADI').Value:='NEJAT';
BufDataset1.Post;

BufDataset1.Append;
BufDataset1.FieldByName('ADI').Value:='ARDA';
BufDataset1.Post;

//BufDataset1.Open;
DataSource1.DataSet:=BufDataset1;
DBGrid1.DataSource:=DataSource1;
end;

(15-01-2025, Saat: 17:20)esistem Adlı Kullanıcıdan Alıntı: [ -> ]merhaba, yukarıdaki kodun aynısı bende çalışıyor, fielddefs tanımında;
NAME : ADI
DATATYPE : ftstring
SIZE : 100
yaptım, kodun aynını yazdım çalıştı, open yaptıktan sonra close yada free yapmayın. 
kısaca ; 

procedure TForm1.Button1Click(Sender: TObject);
begin
BufDataset1.CreateDataSet;
BufDataset1.Open;
BufDataset1.Append;
BufDataset1.FieldByName('ADI').Value:='NEJAT';
BufDataset1.Post;

BufDataset1.Append;
BufDataset1.FieldByName('ADI').Value:='ARDA';
BufDataset1.Post;

//BufDataset1.Open;
DataSource1.DataSet:=BufDataset1;
DBGrid1.DataSource:=DataSource1;
end;

ben size 0 birakmisim deger verince duzeldi.
cok tesekkur ederim sabirla sorularima cevap verdiniz. sayenizde olayi kavradim
saygilar sunarim.