DELPHI PROGRAMING

Memasukan data pada combobox

var NewItem :String;
I :Integer;
Ada :Boolean;
—————————————————————————————
nama_tabel.First;
While Not nama_tabel.Eof do
begin
Newitem:=nama_tabel.Fields[1].AsString;
Ada:=False;
if Length(NewItem)>0 then
begin
for I:=0 to tempat_data.Items.Count-1 do
begin
if SameText(tempat_data.Items[I], NewItem) then
begin
Ada:=true;
Break;
end;
end;
if Not Ada then
begin
tempat_data.Items.Add(NewItem);
end;
end;
nama_tabel.Next;
end;