Me puedes echar una mano en una suma con Delphi ?

La suma que necesito hacer es 23+56+74+95+255 = X , hago las sumas de Dos edit pero yo necesito sumar , esto es lo que tengo.

procedure TMarcosSuma.sumaClick(Sender: TObject);
var n1 , n2 : Integer;
begin
 n1:= StrToInt(Edit1.Text);
 n2:= StrToInt(Edit2.Text);
 Edit3.Text:= IntToStr(n1 + n2);
 end;
end.