Ler 3 valores em ordem crescente no Delphi

Se você deseja criar um programa para ler 3 valores em ordem crescente no Delphi basta você seguir está dica.

Iremos apenas mostrar o código que terá de conter no botão calcular.

Segue abaixo o código:

begin

if Edit1.Text > Edit2.Text then

if Edit1.Text > Edit3.Text then

if Edit2.Text > Edit3.Text then

Edit4.Text := Edit3.Text + ', ' + Edit2.Text + ', ' + Edit1.Text
else
Edit4.Text := Edit2.Text + ', ' + Edit3.Text + ', ' + Edit1.Text
else
Edit4.Text := Edit2.Text + ', ' + Edit1.Text + ', ' + Edit3.Text

else
if Edit2.Text > Edit3.Text then

if Edit1.Text > Edit3.Text then

Edit4.Text := Edit3.Text + ', ' + Edit1.Text + ', ' + Edit2.Text
else
Edit4.Text := Edit1.Text + ', ' + Edit3.Text + ', ' + Edit2.Text
else
Edit4.Text := Edit1.Text + ', ' + Edit2.Text + ', ' + Edit3.Text;

end;

Qualquer dúvida deixe um comentário !