delphi中combobox一个简单的代码？

帮我写一个简单的combobox代码。

要求下拉菜单中有0-8，总共9个选项。

本人初学较笨，请尽量用简单的语句写。

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
combobox1.Clear;
with combobox1 do
begin
for i:=0 to 8 do
begin
items.Add(inttostr(i));
end;
end;
end;

end.