Could not convert variant of type (UnicodeString) into type (Double)

[postaveche]

проблема была решена вот таким вот образом

может кому поможет

DataModule2.IBStoredProc1.StoredProcName:='ADD_ALG_SPECII';
DataModule2.IBStoredProc1.ParamByName('denumirea').Value := Edit1.Text;
DataModule2.IBStoredProc1.ParamByName('masa').Value := StrToFloat(Edit2.Text);
DataModule2.IBStoredProc1.ParamByName('grupa').Value := DBLookupComboboxEh1.KeyValue;
DataModule2.IBStoredProc1.ParamByName('gen').Value := DBLookupComboboxEh2.KeyValue;
DataModule2.IBStoredProc1.ParamByName('s').Value := Edit3.Text;
if Edit4.Text<>'' then
begin
DataModule2.IBStoredProc1.ParamByName('x').Value := StrToFloat(Edit4.Text);
end
else
begin
DataModule2.IBStoredProc1.ParamByName('x').Value := Null;
end;
if Edit5.Text<>'' then
begin
DataModule2.IBStoredProc1.ParamByName('o').Value := StrToFloat(Edit5.Text);
end
else
begin
DataModule2.IBStoredProc1.ParamByName('o').Value := Null;
end;
if Edit6.Text<>'' then
begin
DataModule2.IBStoredProc1.ParamByName('b').Value := StrToFloat(Edit6.Text);
end
else
begin
DataModule2.IBStoredProc1.ParamByName('b').Value := Null;
end;
if Edit7.Text<>'' then
begin
DataModule2.IBStoredProc1.ParamByName('a').Value := StrToFloat(Edit7.Text);
end
else
begin
DataModule2.IBStoredProc1.ParamByName('a').Value := Null;
end;
if Edit8.Text<>'' then
begin
DataModule2.IBStoredProc1.ParamByName('p').Value := StrToFloat(Edit8.Text);
end
else
begin
DataModule2.IBStoredProc1.ParamByName('p').Value := Null;
end;
if Edit9.Text<>'' then
begin
DataModule2.IBStoredProc1.ParamByName('g').Value := StrToFloat(Edit9.Text);
end
else
begin
DataModule2.IBStoredProc1.ParamByName('g').Value := Null;
end;
if Edit10.Text<>'' then
begin
DataModule2.IBStoredProc1.ParamByName('s_1').Value := StrToFloat(Edit10.Text);
end
else
begin
DataModule2.IBStoredProc1.ParamByName('s_1').Value := Null;
end;

[_SERGEYX_]

Ужас. А нельзя на все Edit-ы повесить один общий код

if (Sender as TEdit).Text = '' then (Sender as TEdit).Text:= '0';

?