While Do 2

// while do 2 ...


// Menghapus Isi Memo 1 per 1 ...

procedure TForm2.Button1Click(Sender: TObject);
var i: integer  ;
begin

while memo1.Lines.Count  > 0 do begin       // apabila jumlah paragraf memo > 0
Application.ProcessMessages ;               // Berguna Untuk Process tetap berjalan
Memo1.Lines.Delete(Memo1.Lines.Count -1) ;  // menghapus paragraf terkhir memo berdasarkan index -1
Sleep(40) // Untuk jeda 0,4 detik
end;

end;