定义变量的问题,在线等啊~ (很笨的问题)(30分)

//下面是我用vb6.0转化delphi的代码
Private j As Integer '循环次数
Private Sub Command2_Click() '计算理论值
Dim TheoryData As Single '理论值基数
Dim i As Integer
If Text2(0).Text = "" Then Exit Sub
For i = 1 To 5
If Text2(i).Text = "" And i <= 5 Then
TheoryData = (Val(Text2(i - 1).Text) - Val(Text2(0).Text)) / (i - 1) '满度值减零点值算理论值基数
f_FullData = Val(Text2(i - 1).Text) '//最大值
j = i - 1
i = 5
ElseIf Text2(i).Text <> "" And i = 5 Then
TheoryData = (Val(Text2(i).Text) - Val(Text2(0).Text)) / i '满度值减零点值算理论值基数
f_FullData = Val(Text2(i).Text)
j = i
End If
Next

For i = 1 To j
'Text5(1).Text = TheoryData * i '计算出各段理论值
Text5(1).Text = CStr(TheoryData + Val(Text2(0).Text)) * i 'hu
Next
End Sub
//按公式计算理论值
if RZedit_SJ.text='' then
begin
TheoryData:=StrTofloat(RZedit_SJ[i-1].text)-StrToFloat(RZedit_SJ[1].text);
rzedit_ll[1].Text:=floattostr(Theorydata);//把Theorydata的值赋给另一个控件
Theorydata:=theorydata-(i-1);
rzedit_ll[2].text:=Theorydata
end;

特别注意:在上面代码所提到的edit控件都有可能输入小数.

现在所要提问的是:
转化的delphi代码有问题吗?如果没有问题那怎样定义Theorydata?因为总是提示我Theorydata定义错误
delphi初学者,请勿见笑.
在线等!谢谢了!

Dim TheoryData As Single '理论值基数
在DELPHI中可以这样定义:
var
TheoryData double;

谢谢!

可以了