[deltas]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
For i:=0 to ListBox1.Items.Count-1 do begin
memo1.Lines.Add('Анализ ' + ListBox1.Items.Strings[j]);
inc(j);
end;
if j=ListBox1.Items.Count then memo1.Lines.Add('Анализ Завершен! Обработано '+intToStr(j)+' строк');
end;

end.

Ну что-то в этом роде...