Fórum Ajuda programação Delhpi #462959

Var
  A : Extended;
begin
   //Calcula o valor da previdência,
   //Coloca em formato Real '###,##0.00'
   // 8,5 / 100 = 0,085 valor do percentual para a previdencia
  Edit4.Text :=  FormatFloat('###,##0.00', StrToFloat(Edit1.Text) * StrToFloat('0,085'));
   //Subtrai o valor da previdencia do salário bruto
   // Variavel A, Quarda o valor da subtração
  A := StrToFloat(Edit1.Text) - StrToFloat(Edit4.Text);
   //Calcula o valor do IR,
   // 26,6 / 100 = 0,266 valor do percentual para o IR
  Edit3.Text := FormatFloat('###,##0.00', A * StrToFloat('0,266'));
   //Subtrai o valor da IR do salário armazenado na variavel A;
   //Motra o salário liquido
  Edit2.Text := FormatFloat('###,##0.00', A - StrToFloat(Edit4.Text));
end;

   //Ao sair do edit1 verificar se ele está fazio
  if Edit1.Text <> '' then
     //Se o edit1 não estiver vazio, formata o que foi digitado em formato de Real
    Edit1.Text :=  FormatFloat('###,##0.00', StrToFloat(Edit1.Text));