Lazarus - Aplicação com tipo de dado real

Montar a seguinte interface gráfica

Fazer um programa para somar dois números reais, limpar os dados e sair.

Utilize a função FormatFloat que utiliza dois parâmetros, sendo o primeiro a máscara de formatação e o segundo o valor a ser formatado. O valor formatado é transformado em uma string.

A máscara de formatação que será utilizada é a seguinte ('#,##0.00'), onde

# (tralha) estabelece a supressão de valores zerados, quando eles existirem;
, (vírgula) estabelece a separação de milhares (notação norte-americana);
. (ponto) estabelece a separação do ponto para casas decimais (notação norte-americana).

Exemplos de exibição para o número 2.546,58 e o número 44,32:
0,000.00 exibirá 2,546.58 e 0,044.32
#,##0.00 exibirá 2,546.58 e 44.32

Observe que a utilização de máscaras de formatação possibilita a especificação de três formatos diferentes simultaneamente, separados por ponto-e-vírgula. Com isso é possível ter uma máscara para valores positivos, negativos e zeros. Verifique no código seguinte.

O código encontra-se abaixo:

=================================================
procedure TForm1.Button1Click(Sender: TObject);
var a,b,soma: real;
begin
    if ((edit1.text='') or (edit2.text=''))
    then showmessage('Favor preencher os dois números!')
    else
    begin
        a := strtofloat(edit1.text);
        b := strtofloat(edit2.text);
        soma := a + b;
        label1.caption := formatfloat('#,##0.00;(#,##0.00); zerado', Soma);
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    edit1.text := '';
    edit2.text := '';
    label1.caption := '';
    edit1.setfocus;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
    Close;
end;
=================================================

 Faça o seguinte programa:
1 – obter o valor para a variável HT (horas de trabalho no mês);
2 – obter o valor para a variável VH (valor da hora trabalhada);
3 – obter o valor para a variável PD (percentual de desconto);
4 – Calcular o salário bruto (SB): SB = HT x VH;
5 – Calcular o total de desconto (TD): TD = (PD/100) x SB;
6 – Calcular o salário líquido (SL): SL = SB – tudo;
7 – Apresentar o valor do salário líquido: SL.

Referência

MANZANO, José Augusto Navarro Garcia; MENDES, Sandro Santa Vicca. Estudo dirigido de Delphi 7. São Paulo: Érica, 2003.