8. Створіть обробник події Click для кнопки, виконання якого вста
вить червоний колір фону поля, відступ поля від верхньої межі він
150 пікселів, зменшить відступ поля від лівої межі вікна на 50 рік
лів, установить колір тексту червоний і виведе в поле текст «Ми в
користовуємо властивості поля!».
9. Збережіть нову версію проекту.
О. Виконайте нову версію проекту.
1. Закрийте вікно виконання проекту.
2. Створіть новий проект для обчислення значення виразу а. (4b - 3
3. Збережіть проект у папці з іменем Практична 10_2, створеній у
шій папці.
4. Виконайте проект.
5. Закрийте вікно виконання проекту.
5. Закрийте вікно середовища Lazarus.
6.2. НАЛАГОДЖЕННЯ ПРОЕКТУ​

Не самый рациональный метод решения, но как говорится чем смог тем

var a,b,c,x,kc,kn,k1,k2:integer; 
begin 
kc:=1; 
kn:=1; 
k1:=0; 
k2:=0; 
a:=0; 
b:=0; 
writeln('Введите число x'); 
read(x); 
while x>0 do begin 
c:=x mod 10; 
if c mod 2=0 then begin 
inc(k1); 
a:=a+c*kc; 
kc:=kc*10; 
end; 
if c mod 2<>0 then begin 
inc(k2); 
b:=b+c*kn; 
kn:=kn*10; 
end; 
x:=x div 10; 
end; 
if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных'); 
writeln(a,' ', b); 
end. 

Var a, b: integer;
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА 
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.