Здравствуйте, Сергачев Рома!
Дано число x (четырехзначное). Тогда:
первая цифра = x div 1000
вторая цифра = (x div 100) mod 10
третья цифра = (x mod 100) div 10
четвертая цифра = x mod 10
ИТОГО: разницу между произведением четных и нечетных цифр 4-значного числа можно найти следующим образом:
((x div 100) mod 10)*(x mod 10) - (x div 1000)*((x mod 100) div 10)

Удачи!

Здравствуйте, Сергачев Рома!
Предлагаю вам следующий вариант решения.
На форме : Edit1 - ввод числа, Edit2 - результат, Button1 - запуск расчета
Код и описание в приложении.
Вопросы - пишите.
Удачи.

Приложение:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i, temp, p_1, p_2: integer;

begin
Edit2.Text:= '';
temp:= 0;
try
temp:= StrToInt(Edit1.Text); // Проверяем ввод целого числа
except
ShowMessage('Введите целое число');
exit;
end;

p_1:= 1; // Начальные значения произведений
p_2:= 1;
for i:= 1 to Length(Edit1.Text) do
begin
if Odd(StrToInt(Edit1.Text[i])) then p_2:= p_2 * StrToInt(Edit1.Text[i]) // Если число нечетное
else p_1:= p_1 * StrToInt(Edit1.Text[i]); // Если число четное
end;

if p_1 = 1 then p_1:= 0; // Если нет четных чисел
if p_2 = 1 then p_2:= 0; // Если нет нечетных

Edit2.Text:= IntToStr(p_1 - p_2); // Результат

end;

end.