***Для начала, команда вводится для Button***
var S, M: integer
begin
S:=strToInt(Edit1.Text); (поле где вводится возраст Саши)
M:=strToInt(Edit2.Text); (поле где вводится возраст Маши)
if S<M then MessageDlg('Саша старше Маши')
else if M<S then MessageDlg('Маша старше Саши');
end
Если есть какая-то ошибка - пиши, может где-то ошиблась
И, если что, это для программы Lazarus