初学者提个有关问题

菜鸟提个问题
我要实现这样一个功能 下拉列表框有1到20个数，比如我按2，信息框返回18， 按7，返回13， 按19，返回1，如果按20，返回0，代码怎么写，多谢大虾了！！

[解决办法]
在Form上放一个TComboBox,一个Edit
然后:
procedure TForm1.FormCreate(Sender: TObject); //初始化ComboBox1
var
i:integer;
begin
for i:=1 to 20 do
ComboBox1.Items.Add(IntToStr(i));
ComboBox1.ItemIndex:=0;
end;

procedure TForm1.ComboBox1Select(Sender: TObject);
var
i:integer;
begin
i:= ComboBox1.ItemIndex+1;
i:=20-i; //i就是你要的结果
Edit1.Text:=IntToStr(i);
end;
[解决办法]
感觉就是一个简单的计算。
下面应该就可以了。
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit1.Text:=inttostr(20 - strtoint(ComboBox1.Text));
end;


[解决办法]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit1.Text:=IntToStr(20 - (ComboBox1.ItemIndex+1));
end;