关于这道小数奥数题？

Question

命题：abcd+9=dcba,求abcd是多少？
我的代码如下：（运行始终提示条件不成立）
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d:integer;
    x:string;
begin
   memo1.Clear;
   for a:=1 to 9 do
     for b:=0 to 9 do
       for c:=0 to 9 do
          for d:=1 to 9 do
          begin
           if a*1000+b*100+c*10+d+9=d*1000+c*100+b*10+a then
            begin
           x:=format('%4d    %4d  %4d  %4d',[a,b,c,d]);
           memo1.Lines.Add(x);
           end
           else
           showmessage('条件不成立！');
           end;
end;end.

Answer 1

此题无解！！
正确题目是这样的
abcd*9=dcba,

Answer 2

abcd+9=dcba帮你分析一下这题能否成立：
1、原数加9之后百位与十位不可能改变，所以a=d,b=c
2、原数加9之后个位肯定会改变，所以a!=d这样你就可以发现，原式不成立