Не очищает поля

[Repac123456]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit3: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
p,F,s: Real;
i,x:integer;
begin
s:=0;
P:=1;
try
x:=StrToInt(Edit3.text);
except
Application.MessageBox('Неправильно задан аргумент',
                               'Ошибка ввода данных',MB_OK + MB_ICONWARNING);
    exit; 
    end;

For i:=0 to 5 do
begin
x:=x+1;
F:=(Pi/2)*Sqrt(Abs((4/3)*x*sin(x)-exp((1/3)*ln(exp(x)+0.2))+0.35))-2*x*x;
StringGrid1.Cells[i,0]:=FloatToStr(F);
s:=s+F;
p:=p*F;
end;
Edit1.Text:=FloatToStr(s);
Edit2.Text:=FloatToStr(p);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
Edit1.text:='';
   Edit2.text:='';
    Edit3.text:='';
begin
For i:=0 to 5 do
StringGrid1.cells[1,i]:=''
end;
end;
end.

При нажатии на Button2 никак не хочет очищать поля и при вводе в Edit3 нецелого числа не вылезает предупреждение при выполнении. в чём проблема неподскажите?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Valio]

1. Оформляй свой код в теги CODE.
2. Неужели компилятор не ругается? У тебя чтото с бегинами/ендами..

[Valio]

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
Edit1.text:='';
Edit2.text:='';
Edit3.text:='';
begin - что он тут делает?
For i:=0 to 5 do
StringGrid1.cells[1,i]:=''
end;
end;
end.

[Repac123456]

procedure TForm1.Button2Click(Sender: TObject);
var
  i:integer;
begin
  Edit1.text := '';
  Edit2.text := '';
  Edit3.text := '';
  For i:=0 to 5 do
    StringGrid1.cells[1,i] := ''
end;

end.

Тобишь так будет правильнеее?

[Valio]

Должно быть да. Мне лень проверять.. компилятору нравится? работает?

Тег КОДЕ на в такие скобочки засунуть []