FINALIZAR VENDA

ESTOU CRIANDO UM SISTEMA DE VENDAS PRA MERCADOS JA FINALIZEI O RETAGUARDA MAS NO PDV ESTOU COM DIFICULDADES,CRIEI O SEGUINTE CODIGO PARA QUANDO O VALOR DIGITADO REFERENTE AO VALOR PAGO PELO CLIENTE FOR INFERIOR AO TOTAL DA VENDA O CUPOM NÃO FINALIZA ATE QUE SE COLOQUE UM VALOR IGUAL OU MAIOR DO QUE O TOTAL DA VENDA,MAS SE O TOTAL FOR 1000 E EU COLOCAR 3 ELE CONCLUI,PARECE QUE ELE ESTA COMPARANDO APENAS O PRIMEIRO DIGITO.O CODIGO E ESTE ALGUEM PODE ME AUDAR?

procedure TFrmFinalizarVendas.Button1Click(Sender: TObject);
begin
if (EDTVALORPAGO.text)>=(DBSUBTOTAL.text) then
begin
gravavendas;
impressao;
end
else
if (edtvalorpago.text) <(dbsubtotal.text) then
begin
showmessage('Valor Incorreto');
end;

end;

Caro amigo, vc está comparando texto
conversa string para float
procedure TFrmFinalizarVendas.Button1Click(Sender: TObject);
begin
if StrtoFloat(EDTVALORPAGO.text)>=StrToFloat(DBSUBTOTAL.text) then
begin
gravavendas;
impressao;
end
else
if StrtoFloat(edtvalorpago.text) < strtofloat(dbsubtotal.text) then
begin
showmessage('Valor Incorreto');
end;

end;

Obrigado mauricio consegui resolver o problema .me ajudou muito.

Obrigado mauricio consegui resolver o problema .me ajudou muito.

Obrigado pelo feedback.
Tópico concluído.