Bom dia amigo, a solução para fazer este calculo. vou colocar aqui, espero te ajudado. procedure TForm1.Button1Click(Sender: TObject); var cota:real; juros:real; multa:real; extra:real; total:real; begin cota:=strtofloat(Edit1.text); juros:=strtofloat(Edit2.text); multa:=strtofloat(Edit3.text); extra:=strtofloat(Edit4.text); total:= (cota + juros + multa + extra); Label5.Caption := FormatFloat('###,##0.00',total); end;