delphi 字符串赋值相乘，怎么写老是出错？

按钮单击事件，代码这样写的报告错误，不懂了…
var
sl,wt,st:string;
begin
sl:=edit1.text;
wt:=sl*4;

edit2.text:=wt;
运行错误…

要先strToInt()转换成数字，再相乘