Como calcular MDC em Delphi

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

// função personalizada que permite calcular o MDC de dois
// valores inteiros
function MDC(a, b: Integer): Integer;
var
  resto: Integer;
begin
  while b <> 0 do
    begin
      resto := a mod b;
      a := b;
      b := resto;
    end;

  Result := a;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  x, y: Integer;
begin
  x := StrToInt(Dialogs.InputBox('MDC',
    'Informe o primeiro valor:', ''));
  y := StrToInt(Dialogs.InputBox('MDC',
    'Informe o segundo valor:', ''));

  // vamos mostrar o resultado
  ShowMessage('O Máximo Divisor Comum de ' + IntToStr(x) +
    ' e ' + IntToStr(y) + ' é ' + IntToStr(MDC(x, y)));
end;