[march]

Код:

var
 i:integer;
begin
  for i:=1000 to 9999 do
   begin
    if (strtoint(copy(inttostr(i),1,1))+strtoint(copy(inttostr(i),2,1)))=
    (strtoint(copy(inttostr(i),3,1))+strtoint(copy(inttostr(i),4,1))) then
     memo1.Lines.add(inttostr(i));
   end;
end;

такое устроит? возможно еще через числа