求大家帮我写个非常简单的小程序（我不懂，谢谢），在线急等

Question

效果如图：
第一个文本框就是用来输入那个正整数，然后，按[计算]按钮，最后将结果显示在下面那个文本框里帮帮忙啊，急死了，谢谢，万分感谢！！！！！
谁先把完整的代码写出来，或者发给我（[email protected]），马上结帖

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  x: integer;
  y: integer;
begin
  x:=strtoint(edit1.Text);
  y:=0;
  for i:=1 to x do
  begin
    if (i mod 2)=1 then
      y:=y+i;
  end;
  edit2.Text:=inttostr(y);
end;

Answer 2

edit1为第一文本框
edit2为第二文本框
button1为计算按钮

Answer 3

edit1为第一文本框
edit2为第二文本框
button1为计算按钮

Answer 4

var
x,i,s:integer;
begin
x:=strtoint(edit1.Text);
s:=0;
for i:=1 to x do
   if (i mod 2)=1 then
     s:=s+i;
edit2.Text:=inttostr(s);
end;