Excel принимает нецелые числа как текст

[Kalkbrenner]

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=FloatToStr ((StrToFloat(ComboBox1.Text) + StrToFloat(ComboBox2.Text) ) /2  );
end;
procedure TForm1.Button2Click(Sender: TObject);
Var
Excel:OleVariant;
  i : integer;
Begin
 Excel :=CreateOleObject('Excel.Application');
 Excel.Workbooks.Open('C:\1\1.xlsx');
i := 1;
  while Excel.Cells[i, 2].Text <> '' do Inc(i);
  Excel.Cells[i, 2].Value := label1.Caption;
 Excel.Visible :=False;
 Excel.WorkBooks.Close;
 Excel.Quit;
 Excel :=Unassigned;
end;
end.

Excel принимает нецелое число как текст, а целое число как число.
Мне нужно чтобы целое и нецелое числа принимало как числа.

[Aleksandr H.]

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=FloatToStr ((StrToFloat(ComboBox1.Text) + StrToFloat(ComboBox2.Text) ) /2  );
end;
procedure TForm1.Button2Click(Sender: TObject);
Var
Excel:OleVariant;
  i : integer;
Begin
 Excel :=CreateOleObject('Excel.Application');
 Excel.Workbooks.Open('C:\1\1.xlsx');
i := 1;
  while Excel.Cells[i, 2].Text <> '' do Inc(i);
  Excel.Cells[i, 2].Value := strtofloat(label1.Caption);
 Excel.Visible :=False;
 Excel.WorkBooks.Close;
 Excel.Quit;
 Excel :=Unassigned;
end;
end.

Не?

[Kalkbrenner]

Спасибо!!! Я тебя люблю)

[Kalkbrenner]

Aleksand H. Ты лучший!!! Первый раз на форуме зарегался чтобы спросить и тут сразу ответ верный. Че тут нажать чтобы тебе репутацию поднять?

[Aleksandr H.]

Веса жми, в сообщении которое нравится. Слева, между шариком и треугольником

[Hugo121]

Только причём тут Microsoft Office и VBA > Microsoft Office Excel?
Что дали то и принял...

[Serge_Bliznykov]

Hugo121, Вы правы. Но автор темы дал свой код на Delphi, в результате получил решение своей проблемы.

А раздел, реально не тот.
Давайте я перенесу тему в раздел "Общие вопросы Delphi" ?!

[Hugo121]

Кстати там в коде лист какой попало обрабатывается? Имхо упущение...
А так конечно нужно переносить, тут оно безтолку...

[Serge_Bliznykov]

// перенёс тему