Summen zwischen 2 Zahlen mit Repeat-Until

[Matz4000]

Hey Leute,
kleine Frage:
Ich soll für die Schule n Programm programmieren, was die Summe zwischen 2 Zahlen ausgibt. z.B. a=5 b=10 => s:=5+6+...+10=45, und dies mit einer Repeat-Until-Schleife.

Ich zerbreche mir jz seit na viertel-stunde den Kopf, was ich falsch mache

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
    s:integer;
    c:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit1.text);
c:=a;
s:=0;
 repeat
   s:=s+c;
   c:=c+1;
 until c=b;
label5.caption:=inttostr(s);
end;

Als erstes sage ich das c dem wert der ersten eingegebenen Zahl entspricht. Die Summe beginnt logischer Weise mit 0.
In der Schleife wird dann die summe (am Anfang 0) mit c addiert (am Anfang 5).
c (5) wird danach zu 6 . Beim nächsten durchgang heißt es dann:
5+6 und c wird zu 7..u.s.w.
bis letztendlich c=10 is.

Wenn ich allerdings das Prog starte, und die 2 Zahlen eingebe, hängt sich das Prog auf. Wo liegt der Fehler?

Danke im Vorraus,
Gruß Michael