>>50
できました〜

procedure TForm1.Button1Click(Sender: TObject);
var
ii: Integer;
answer: Integer;
begin
answer := 0;
for ii := 1 to 100 do
answer := answer + ii;
ShowMessage(IntToStr(answer));
end;