Как вывести промежуточные значения?

#include <vcl.h>
#pragma hdrstop
 
#include <stdio.h>
#include <conio.h>
#include <math.h>
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text="0,1";    // от
Edit2->Text="1,0";    // до
Edit3->Text="50";     // кол-во шагов
Edit4->Text="0,1";    // шаг
Memo1->Lines->Add("Лабораторная работа 3");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double x, h, r, s, y, a, b;
int n, k;
       a = StrToFloat(Edit1->Text);
       b = StrToFloat(Edit2->Text);
       n = StrToInt(Edit3->Text);
       h = StrToFloat(Edit4->Text);
         double  z =M_PI/3; 
                 for(x = a; x<=b; x=x+h) {
                r = 1;
                s = 0;
                for(k = 1; k<=n; k++) {
                        r=r*x;
                        s=s+r*cos(k*z)/k;
                }
       y = -0.5*log(1-2*x*cos(z)+x*x);
       r = fabs(s-y);
 
                }
                
                Memo1->Lines->Add("при x= "+FloatToStrF(x,ffFixed,8,2)
+"  сумма= "+FloatToStrF(s,ffFixed,8,5)
+"   y = "+FloatToStrF(y,ffFixed,8,5)
+"  |s-y| = "+FloatToStrF(r,ffFixed,8,5));
 
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        Memo1->Clear();
}