Помогите составить программу в Delphi 7!

выучить язык програмирования....

Все б вам кнопки на формы кидать. Нет чтоб головой подумать ;)
n mod 10 -- первая цифра
n div 10 mod 10 вторая
n div 100 mod 10 третья итд
дальше рассказывать?
Да, забыл заметить, что для меня 1-я цифра -- это наименее значимая, т. е. правая

Может это поможет: http://www.cwer.ru/sphinx?s=+Delphi+7 Прежде чем скачивать необходимо зарегистрироваться на главной странице сайта. Процедура эта быстрая. Прочитайте также правила скачивания и особенно внимательно описание того, что Вы будете скачивать. Особое внимание обратите в каком формате этот файл выложен и как его устанавливать. Это может пригодиться при скачивании файла: http://akak.ru/recipes/3749-kak-besplatno-ckachat-s-depositfiles-letitbit-filefactory-youtube Только выбирайте ссылку на Deposit

выкладываем на форму
button1
edit1
label1

в propirties меняем caption как хотим и text из edit1 удаляем

далее два раза клацаем на выложеную кнопку (button1) появляется процедура
tform1.button1onclick(sender:tobject) помоему уже не помнюю и далее
var s:string;
begin
s:=edit1.text;// переведем в s так прост писать легче.. .
if (strtoint(s[0])+strtoint(s[1]))=(strtoint(s[2])+strtoint(s[3])) then label1.caption:='равны' else label1.caption:= 'неравны'
// и сравниваем первую букву со второй.... счет начинается с 0 поэтому 4 цыфры= 0 1 2 3
end;

пример
4 5 = 7 2 число из твоего вопроса
0 1 = 2 3 порядок
--------
s[0]+s[1] = s[3]+s[4] и порядок сравнивания

удачи