Написать программу, которая вычисляет произведение цифр введенного пользователем двузначного числа

button1.Caption:=IntToStr ((StrToInt (edit1.Text)* StrToInt(edit2.Text)));

edit1.text:='1';
edit2.text:='1';
edit1.text + edit2.text=11

StrToInt (edit1.Text)* StrToInt(edit2.Text)

function DigitsMultiply(const ANumber: Integer): Integer;
var
  Mult, Number: Integer;
begin
  if ANumber <> 0 then
  begin
    Mult := 1;
    Number := Abs(ANumber);
    while (Number <> 0) do
    begin
      Mult := Mult * (Number mod 10);
      Number := Number div 10;
    end;
    Result := Mult;
  end
  else
    Result := 0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(DigitsMultiply(13545))); // 1 × 3 × 5 × 4 × 5 = 300
  // Либо, скажем вызов для Edit'а
  //ShowMessage(IntToStr(DigitsMultiply(StrToInt(Edit1.Text))));
end;

var
num:integer;
begin
if  TryStrToInt(Edit1.Text, num) then //проверка ввода числа
ShowMessage('Произведение цифр числа равно '
+IntToStr((num div 10)*(num mod 10)))
else
ShowMessage('Введите двузначное чило!');
end;