в делфи пишется три числа при нажатие Button выводиться наибольшее, и если число больше 100 тогда выводит, много,

procedure TForm1.Button1Click(Sender: TObject);
function Max(a, b: integer): integer;
begin
if a > b then
Result := a
else
Result := b;
end;
var
MaxVal: integer;
begin
MaxVal := Max(Max(StrToInt(Edit1.Text), StrToInt(Edit2.Text)), StrToInt(Edit3.Text));
if MaxVal > 100 then
ShowMessage('Много')
else
ShowMessage(IntToStr(MaxVal));
end;