죄송합니다만 질문의 요지를 파악 못하겠습니다..
스트링으로 변환했을때 소수점이 안나온다는건지 아니면
소수점 계산이 안된다는건지 잘모르겠군요..
그리고 밑에 소스중에
:  R :=Compute(Op, R, StrToFloat(Label1.Caption));
:  Op := '+';
이부분에서 순서가 바뀐것 아닌가요..

왕 초보자입당^^* 님이 쓰신 글 :
:
:
: 사칙연산을 만들여고 하는데 소수점을 사용할 수 있게 하려고
:
: 하는데 잘 되지 않습니다.
:
: 델파이 고수 님의 지도를 부탁드립니다.
:
: 무척 궁금해요^^*
:
:
: 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에서 바꿔주기만 했구여
:
: 여기서 소수점('.')를 사용하려고 합니다.
:
: 어떻게 해야하는지 부디 지도 부탁드립니다.
:
: