Работа с элементами из StringGrid (Delphi)

[type_Oleg]

Сообщение означает " не является правильным числом с плаввающей запятой".
То есть там, где StrToFloat ждет число, а числа не ввели.

[Аника Янковская]

Программа запускается нормально, но когда нажимаю на кнопку для переумножения значений - ошибка.
Так в таблице значение уже есть. Тогда как правильно записать???

[Stilet]

Ошибка выскакивает

var q,w:Double;
begin
 FormatSettings.DecimalSeparator:='.';
...
 with StringGrid do begin
  if 
     TryStrToFloat(StringReplace(cells[1,2],',','.',[]),q) and 
     TryStrToFloat(StringReplace(cells[2,3],',','.',[]),w)
  then Edit1.Text:=format("%2.5f",[q*w])
  else ShowMessage("В ячейках не числа");
 end;
end;

[type_Oleg]

Сообщение от Аника Янковская

... Так в таблице значение уже есть. Тогда как правильно записать???

Точно есть именно в той ячейке, где надо?
И правильное значение ?
Десятичный разделитель не перепутали (типа 3.14 вместо 3,14 или наоборот) ?
И вообще, лучше вместо StrToFloat использовать StrToFloatDef

[Аника Янковская]

var q,w:Double;
begin
 FormatSettings.DecimalSeparator:='.';
...
 with StringGrid do begin
  if 
     TryStrToFloat(StringReplace(cells[1,2],',','.',[]),q) and 
     TryStrToFloat(StringReplace(cells[2,3],',','.',[]),w)
  then Edit1.Text:=format("%2.5f",[q*w])
  else ShowMessage("В ячейках не числа");
 end;
end;

Теперь еще больше ошибок:
[Ошибка] Unit2.pas(94): Undeclared identifier: 'FormatSettings'
[Ошибка] Unit2.pas(94): Missing operator or semicolon
[Ошибка] Unit2.pas(99): Illegal character in input file: '"' ($22)
[Ошибка] Unit2.pas(100): Unterminated string
[Фатальная Ошибка] Project1.dpr(6): Could not compile used unit 'Unit2.pas'

Сообщение от type_Oleg

И вообще, лучше вместо StrToFloat использовать StrToFloatDef

Ничего не запускается, ошибки.

[newerow1989]

Выслать весь код и фото экрана для определения ошибок

[Аника Янковская]

procedure TForm2.MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if clk = 0 then
begin
Image1.Canvas.MoveTo(X, Y);
Image1.Canvas.Pen.Color:=clRed;
Image1.Canvas.Pen.width:=5;
x0_y0:=Image1.Canvas.PenPos;
clk:=clk+1;
end;
if Button = mbLeft then
begin
Image1.Canvas.LineTo(X,Y);
Image1.Canvas.MoveTo(X,Y);
end;
if Button = mbRight then
Image1.Canvas.LineTo(x0_y0.X, x0_y0.Y);
end;
procedure TForm2.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
with StringGrid1 do
begin
RowCount:= RowCount+1;
Cells[0,0]:='X';
Cells[1,0]:='Y';
Cells[0,RowCount-1]:=IntToStr(X);
Cells[1,RowCount-1]:=IntToStr(Y);
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
var x,y:real;
begin
x:=StrToFloat(StringGrid1.Cells[2,3]);
y:=StrToFloat(StringGrid1.Cells[3,4]);
Edit1.Text:=FloatToStr(x*y);
end;

И эта ошибка

[newerow1989]

Какие действия выполняешь до того, как выйдет ошибка? Нажатие на что-либо (указать), отжатие или что-то еще? На форме что отображается?

[Аника Янковская]

Открываю форму, левой кнопкой мыши нажимаю, строятся стороны многоугольника, правой нажимаю - многоугольник замыкается. Потом нажимаю на кнопку, появляется ошибка. Когда ошибку закрываю вот это:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

[newerow1989]

После нажатия на кнопку "OK" этого окна с красным крестиком выделяется строка программного кода, где находится ошибка. На какой строчке это происходит?

А что в Unit1.pas написано?