a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);
max := a;
if max < b
then max := b;
if max < c
then max :=c ;
if (a=b) and (b=c)
then Label1.Caption := 'Rovnake hodnoty'
else Label1.Caption :='Maximalna hodnota je: ' + FloatToStr(max);