procedure CreateSums(A : Array Of Integer);
var
I, J : Integer;
H, S : String;
begin
Memo1.Lines.Clear;
For I := Low(A) To High(A)-1 Do
Begin
H :='';
For J := Low(A) To I Do H := H + IntToStr(A[J]) + '+';
For J := I+1 To High(A) Do
Begin
S := H + IntToStr(A[J]);
Memo1.Lines.Add(S);
End;
End;
end;