Ввести с клавиатуры число и подсчитать, произведение всех цифр, кратных 3

procedure TForm1.Button1Click(Sender: TObject);
var i, max, position : integer;
begin
//Проверка на правильность ввода числа
//Если введено не число (есть буквы, пробелы и т.д.) или число слишком велико для типа Integer 
//- поле ввода очищается и программа ждет повторного ввода
 if not TryStrToInt(Edit1.Text, i)
  then begin
        ShowMessage('Неверно введено число');
        Edit1.Text := '';
        Edit1.SetFocus;
        Exit;
       end;
//Сообщаем, сколько цифр в числе
 Label1.Caption := Format('Во введенном числе содержится %d цифр', [Length(Edit1.Text)]);
//Инициализируем переменные максимальной цифры и ее позиции в числе
//и начинаем цикл для поиска максимального значения
 max := 0;
 position := 0;
 for i := 1 to Length(Edit1.Text) do
  if StrToInt(Edit1.Text[i]) > max
   then begin
         max := StrToInt(Edit1.Text[i]);
         position := i;
        end;
//Сообщаем максимальную цифру и номер ее позиции в числе
 Label2.Caption := Format('Максимальная цифра в числе: %d на позиции %d', [max, position]);
end;

var a,b,c,g,k:integer;  f,d,e:string;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
c:=strtoint(Edit3.Text);
d:='÷åòíîå';
e:='íå÷åòíîå';
f:='0 ýòî íå ÷åòíîå è íå÷åòíîå';
if(a mod 2=0) then label4.caption:=(d) else label4.caption:=(e);
if(b mod 2=0) then label5.caption:= (d)else label5.caption:= (e);
if(c mod 2=0) then label6.caption:= (d) else label6.caption:= (e);
if(a=0)  then label4.Caption:= (f);
if(b=0)  then label5.Caption:= (f);
if(c=0)  then label6.Caption:= (f);
end;
 end.

procedure TForm1.Button1Click(Sender: TObject);
var i, max, position : integer;
    Chet, Nechet : integer; //Объявили переменные-счетчики четных и нечетных
begin
//Проверка на правильность ввода числа
//Если введено не число (есть буквы, пробелы и т.д.) или число слишком велико для типа Integer
//- поле ввода очищается и программа ждет повторного ввода
 if not TryStrToInt(Edit1.Text, i)
  then begin
        ShowMessage('Неверно введено число');
        Edit1.Text := '';
        Edit1.SetFocus;
        Exit;
       end;
//Сообщаем, сколько цифр в числе
 Label1.Caption := Format('Во введенном числе содержится %d цифр', [Length(Edit1.Text)]);
//Инициализируем переменные максимальной цифры и ее позиции в числе
 max := 0;
 position := 0;
//Инициализируем переменные-счетчики
 Chet := 0;
 Nechet := 0;
//и начинаем цикл для поиска значений
 for i := 1 to Length(Edit1.Text) do
  begin
   if StrToInt(Edit1.Text[i]) > max
    then begin
          max := StrToInt(Edit1.Text[i]);
          position := i;
         end;
   if StrToInt(Edit1.Text[i]) mod 2 = 0 then inc(Chet) else inc(Nechet);   
  end;
//Сообщаем максимальную цифру и номер ее позиции в числе
 Label2.Caption := Format('Максимальная цифра в числе: %d на позиции %d', [max, position]);
 Label3.Caption := Format('В числе: %d четных и %d нечетных цифры', [Chet, Nechet]);
end;