function IsMultipleAofB(NumberA, NumberB: Integer): Boolean;
begin
Result := (NumberA >= NumberB) and
(NumberB > 0) and
(NumberA mod NumberB = 0);
end;
Remarque :
// Exemple d'utilisation avec deux SpinEdit :
procedure TForm1.seAChange(Sender: TObject);
const
Reponse: array[Boolean] of string = ('non', 'oui');
begin
Label1.Caption := Reponse[IsMultipleAofB(seA.Value, seB.Value)];
end;