DELPHI: Recorrer los Elementos de un Combobox

//Aquí lo tenemos en un evento click de un botón

procedure TForm1.Button1Click(Sender: TObject);
var j,i:integer;
begin
j:=combobox1.Items.Count;
for i:=0 to j-1 do
begin
showmessage(combobox1.Items[i]);
end;
end;