В трехзначном числе зачеркнули старшую цифру. Когда полученное число умножили на 6, то получили исходное число. Найти общее количество таких чисел

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a,b,count,i:integer;
begin
count:=0;
  for i := 1 to 999 do
  begin
    a:= i div 10 mod 10;
    b:=i mod 100;
    if (a*10+b)*6=i then
      count:=count+1;
  end;
edit1.Text:=inttostr(count);
 
end;
 
end.

for i:= 17 to 99 do
  if IntToStr(i) = Copy(IntToStr(i*6),2,2) then
    Memo1.Lines.Add(IntToStr(i*6));

    if (a*10+b)*6=i then
     begin
      count:=count+1;
      Memo1.Lines.Add(IntToStr(i));
     end;

  count:=0;
  for i := 1 to 999 do
  begin
    if (i mod 100) * 6 = i then
    begin
      ShowMessage(IntToStr(i));
      count:=count+1;
    end;
  end;