Ich war mal so nett und habe dir das Problem Nr.1 gelöst:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Zahl, i: Integer;
s: String;
begin
Zahl := StrToInt(Edit1.Text);
s := IntToStr(Zahl);
for i := Zahl-1 downto 1 do
s := s + ' + ' + IntToStr(i);
Label1.Caption := s;
end;