كيفية نقل محتوى حقل الى listbox

[jeanjamil]

                                                                                      var
i:integer;
begin
ClientDataSet1.First;
while not clientdataset1.Eof do
  begin
    for I := 0 to ClientDataSet1.RecordCount-1 do
      begin

    slistbox2.Items.add(clientdataset1.fieldbyname('name').asstring);
    clientdataset1.Next;
      end;