提问啊，初学者的小问题！谢谢了！(16)

我想在程序上添加个下拉列表框，编译不通过啊！procedure TForm1.ComboBox1Change(Sender: TObject);begin if ComboBox1.Text<>'' then Memo1.Font.Size:=strToIint(ComboBox1.Text);end;procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);begin if Key = chr(13) then if (ComboBox1.Text<>'') and (ComboBox1.Items.Indexof(ComboBox1.Text)<0 ) then ComboBox1.Items.Append(ComboBox1.Text);end; 谁帮忙看一下，先谢谢了！

Memo1.Font.Size:=strToIint(ComboBox1.Text);--->Memo1.Font.Size:=strToInt(ComboBox1.Text);

编译出错信息是什么？

接受答案了.