Струдом понял че за хрень тебе нужна.

memo1.Lines.Add() - написал на память так что проверь

на счет прогресс бара. В начале цикла пишешь вот так
ProgressBar1.Position:=0;
потом надо присвоить прогрессбару какой то максимальный результат (число).
потом вот так ProgressBar1.Position:=i; - тоесть после каждого прохода цикла прибавляет какое то n-ое число чтобы прогресс рос.

Объяснил на пальцах)) честно говоря сам плохо понял что написал, почитай доки там все есть