Нужно отобразить ход выполнения...

procedure TForm1.Button4Click(Sender: TObject);
var i,j,k,g:integer;
    s1,s2,sigma:extended;
begin
 application.ProcessMessages;
 for i:=1 to dz do
  c[i]:=ru[i]+rb[i]+q[i];
 for j:=1 to dz do
  c1:=c1+c[j];
 
 s1:=0;s2:=0;
  for i:=1 to dz do
  begin
   s1:=s1+c[i]*i;
   s2:=s2+c[i]*i*i;
  end;
  s2:=s2/c1;s1:=s1/c1;
  sigma:=sqrt(s2-sqr(s1));  //sigma:=1;
//расчет вероятностей
form1.label1.Caption:='Расчет вероятностей';
  for i:=1 to dz do
   for j:=1 to i do
    p[i,j]:=1/(sigma*sqrt(2*pi))*exp(-(sqr(j-i/2))/(2*sqr(sigma)));
//рачет масс
label1.Caption:='Расчет масс';
  for i:=1 to dz do
   for j:=1 to i do
    m[i,j]:=c[i]*p[i,j]*54*j+c[i]*(1-p[i,j])*68*(i-j);
 
  h[0]:=ln(54);
  for k:=1 to 100 do
   h[k]:=h[0]+(ln(dz*68)-ln(54))/100*k;
 
 //распределние масс
 label1.Caption:='Распределение масс';
  for i:=1 to dz do
   for j:=1 to i do
    if i>=j then
     for k:=1 to 100 do
      if (ln(j*54+(i-j)*68)>h[k-1]) and (ln(j*54+(i-j)*68)<=h[k]) then
     begin  s[k]:=s[k]+m[i,j];
            sc[k]:=sc[k]+1;
     end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  application.ProcessMessages;
 if  label1.caption='...' then
  label1.Caption:='' else
  label1.Caption:=label1.caption+'.';
end;

label1.Caption:=label1.Caption+'твой текст';