Ответ:

procedure TForm1.Button1Click(Sender: TObject);

var i,s:integer;

begin

S := 0;

for i := 20 to 30 do

S := S + i;

Label1.Caption := IntToStr(S);

end;