Хелпаните как из do-while сделать while?

{
float x, a, s = 0;
int f, i, k = 0;
x = StrToFloat(Edit1->Text);
do
{
k++;
for(i = 1, f = 1; i <= 2*k-1; i++)
f *= i;
a = (pow(-1, k+1) * pow(x, 2*k))/f;
s += a;
}
while (fabs(a) >= 1e-4);
Edit2->Text=FloatToStr(s);
Edit3->Text=IntToStr(k);
}