Perulangan FOR

Suatu aktifitas yang sama yang dilakukan secara berulang ulang di
dalam sebuah program itulah yang disebut PERULANGAN. Perulangan ini bisa proses pencarian, pencetakan dan sebagainya.
Delphi mempunyai fasilitas perulangan tak bersyarat yaitu perulangan/looping For.
Format Listing:

1. For ... to 
2. contoh : 
3. procedure TForm1.Button2Click(Sender: TObject); 
4. var x:integer; 
5. begin x:=1 to 5 
6. do begin memo1.Lines.Add(inttostr(x)); 
7. end; 
8. end;  

Jika dilakukan dengan manual atau tanpa syntax perulangan,perintah diatas maka sebagai berikut

1. procedure< TForm1.Button2Click(Sender: TObject) 
2. begin; 
3. memo1.Lines.Add(inttostr(1)); 
4. memo1.Lines.Add(inttostr(2)); 
5. memo1.Lines.Add(inttostr(3)); 
6. memo1.Lines.Add(inttostr(4)); 
7. memo1.Lines.Add(inttostr(5)); 
8. end;  

Selamat Mencoba