사칙연산을 만들여고 하는데 소수점을 사용할 수 있게 하려고

하는데 잘 되지 않습니다.

델파이 고수 님의 지도를 부탁드립니다.

무척 궁금해요^^*


var
Form1: TForm1;
Op: Char;
R : Extended;
bGettingNum: Boolean;
implementation

{$R *.DFM}

function TForm1.Compute(Operator: Char; V1, V2: Extended): Extended;
begin
  case Operator of
   '+':Result := V1 + V2;
   '-':Result := V1 - V2;
   '*':Result := V1 * V2;
   '/':Result := V1 / V2;
   //
  else Result := V2;
  end;
end;
procedure TForm1.Clear;
begin
bGettingNum :=False;
R := 0;
Op := #0;
end;


procedure TForm1.Button5Click(Sender: TObject);
begin
if not bGettingNum then
begin
    Label1.Caption := '';
    bGettingNum :=True;
end;

Label1.Caption :=
     Label1.Caption + TButton(sender).Caption;

선언 해주고 나서

사칙연산을 해주었습니다.

procedure TForm1.Button1Click(Sender: TObject);
begin
R :=Compute(Op, R, StrToFloat(Label1.Caption));
Op := '+';
bGettingNum := False;
Label1.Caption := FloatToStr(R);
end;

다른 연산도 Op에서 바꿔주기만 했구여

여기서 소수점('.')를 사용하려고 합니다.

어떻게 해야하는지 부디 지도 부탁드립니다.