Напишите программу, которая выводит сумму цифр числа 123

Программа написана на языке Dtlphi. Программа выводит сумму цифр числа 123, после нажатия кнопки ввод, в окно формы.

type

TForm1 = class (TForm)

Button1: TButton;

Edit3: TEdit;

procedure Button1Click (Sender: TObject);

private

public

end;

var

Form1: TForm1;

r, a:string;

d, a1, r1, n1:integer;

implementation

{$R *. dfm}

procedure TForm1. Button1Click (Sender: TObject);

begin

a1: = 1;

r1: = 2;

n1: = 3;

d : = a1+r1+n1;

Edit3. Text: = IntToStr (d);

end;

end.