Aplikasi Looping Sedehana (Delphi)

Adapun postingan ini saya buat adalah untuk sambungan postingan sebelumnya, yaitu Aplikasi Login Sederhana, karna dalam file exe nya sudah saya sertakan Program Loopingnya...
Cekidot.....

procedure TForm2.Button1Click(Sender: TObject);

var a,b,num : integer;

begin

a := strtoint(edit1.Text);

b := strtoint(edit2.Text);

for num :=  a to b do

showmessage (inttostr(num));

end;