Repeat Until 2

// Repeat Until 2

// Menghapus isi memo 1/1 ... dengan repeat until


//================================================

procedure TForm2.Button1Click(Sender: TObject);
begin

repeat   // ulang

Application.ProcessMessages ;   // membuat aplikasi berjalan Walau kode jalan
Memo1.Lines.Delete(Memo1.Lines.Count -1) ;   // menghapus paragraf memo berdasarkan index terakhir
Sleep(50) ;  // jeda 0.5 detik


until Memo1.Lines.Count = 0;   // kecuali jumlah paragraf memo = 0

end;

//==================================================

{

Jadi Perulangan Menghapus paragraf memo , akan terus berlanjut sampai jumlah paragraf = 0

}