Anfängerproblem ->"Multiples of 3 and 5" ,komme nicht weiter

[PaLegba]

Eigenltich sollte am ende die Summe aller durch 3 oder 5 teilbaren Zahlen(hier bis 10) rauskommen aber leider funktioniert es nicht

procedure TForm1.Button1Click(Sender: TObject);
var
itest,iges:integer;

begin
iges:=0;
itest:=3;
begin
while itest<10 do
begin
if (itest mod 3 = 0) or (itest mod 5=0) then
begin
iges:=iges+itest;
end
else
inc(itest);
end;
Label1.Caption:=IntToStr(iges);
end;
end;
end.

ok hab inc(itest) an einer stelle vergessen klappt jetzt, weiß aber nicht wie oder ob ich diesen Beitrag löschen soll.

[theo]

Du musst "itest" in jedem Fall inkrementieren.
Also "else" wegmachen.

[PaLegba]

jjo oder so danke ^^