往Sql数据库添加numeric类型数据(100分)

我使用TEdit组件E_number,
代码：
procedure TFinsert.BB_okClick(Sender: TObject);
var sE_number:real;

begin
sE_number:=StrToFloat(E_number.text);
_Run.Close;
_Run.Sql.Clear;
_Run.Sql.Add('Insert personal (number) values('''+sE_number+''')');
_Run.ExecSQL;
end;

提示：[Error] Uinsert.pas(61): 不相兼容类型: 'String' with[red][/red][black][/black][] 'Real'

试试在
_Run.Sql.Add('Insert personal (number) values('''+sE_number+''')');

这句中sE_number用E_number.text代替sE_number

我感到不合适

谢谢