Как на делфи написать прогу типа Ввести с клавиатуры целое число и определить делится ли оно нацело на 9 и на 11

...
var
  n:integer;
...
if n mod 99 =0 then
  ShowMessage('True')
else
  ShowMessage('False')
...

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
  n:integer;
begin
  try
    writeln('Enter number...');
    readln(n);
    if n mod 99 =0 then
      writeln('True')
    else
      writeln('False');
    readln
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if StrToInt(Edit1.Text) mod 99 =0 then
    ShowMessage('True')
  else
    ShowMessage('False');
end;
 
end.