[nblF-nblF*]

подскажите пожалуйста, как сделать так, чтобы в случае если выскакивает showmessage и после закрытия этого окна, компонент Label1.Caption остался пустым, а то у меня фигня какая-то выводиться туда...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var x,s,a:real;
k,n:byte;
  begin
label1.Caption:=#0;
x:=strtofloat(labelededit1.Text);
if (x>-Pi/4) and (x<Pi) then
a:=(cos((2*k+1)*x)*(2*k-1))/(cos((2*k-1)*x)*(2*k+1)) else
  begin
showmessage('ошибка!');
    end;
s:=a;
for k:=1 to n do
  begin

a:=a*(cos((2*k+1)*x)*(2*k-1))/(cos((2*k-1)*x)*(2*k+1));
s:=s+a;
    end;
label1.Caption:=floattostr(s);
    end;
    end.