Подпрограммы в Delphi.

[armchair]

Составить функцию, которая определяет, кратно ли введенное число наибольшей его цифре. В данной работе подпрограмму оформить в виде метода, который подключить к классу TForm1.

Надеюсь на вашу помощь. Заранее спасибо.

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
  private
    { private declarations }
    Function foo(x:integer):Boolean;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

function TForm1.foo(x: integer): Boolean; var max:integer;
begin
  max:=x mod 10;
  while x>0 do begin
    if (x mod 10)>max then max:=x mod 10; x:=x div 10;
  end;
  Result:=(x mod max)=0;
end;

end.

Угадал?

[armchair]

Спасибо. Не хочу показаться наглым, но не могли бы вы мне со всей задачей в целом помочь? В частности с заполнением формы( какие компоненты, а также с дальнейшем написанием кода. Насколько я понял, нужно несколько компонентов Label, а также поле edit, чтобы ввести число для проверки на кратность. Но опять же это все нужно как-то отразить в коде программы, а с этим у меня пока беда.

[Stilet]

Для начала накидай указанные тобой компоненты на форму, и кликни по ним мышкой, чтоб создать обработчики.

[armchair]

Ну кликнул. Обработки создались.Но всё равно не въезжаю, как оформлять дальше

[Stilet]

А дальше смотришь где я описал функцию в примере и пишешь примерно так же.
Потом в событии клика кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if foo(StrToFloatDef(Edit1.Text,0)) then ShowMessage('Да. Кратно')
  else ShowMessage('Неа');
end;