[Nicoman]

Помогите плиз!

Есть такая процедура:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

procedure TForm4.BitBtn1Click(Sender: TObject);  Var i:Integer;      k:Byte; begin  If (MaskEdit2.Text<>' , ') and (MaskEdit3.Text<>' , ') and  (MaskEdit1.Text<>'    ') and (MaskEdit4.Text<>' , ') and  (MaskEdit5.Text<>' , ') and (MaskEdit6.Text<>' , ') Then    If (StrToFloat(MaskEdit2.Text)<=6.0) and       (StrToFloat(MaskEdit3.Text)<=6.0) and       (StrToFloat(MaskEdit4.Text)<=6.0) and       (StrToFloat(MaskEdit5.Text)<=6.0) and       (StrToFloat(MaskEdit6.Text)<=6.0) Then         Begin          k:=0;          For i:=1 To Form3.StringGrid1.RowCount-1 Do           If MaskEdit1.Text=Form3.StringGrid1.Cells[1,i] Then            Begin             k:=1;             Break;            End;          If k=0 Then           Begin            Form3.StringGrid1.RowCount:=Form3.StringGrid1.RowCount+1;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,1]:=MaskEdit1.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,2]:=Edit1.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,3]:=Edit2.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,4]:=Edit3.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,5]:=MaskEdit2.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,6]:=MaskEdit3.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,7]:=MaskEdit4.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,8]:=MaskEdit5.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,9]:=MaskEdit6.Text;            Close;           End           Else Label10.Visible:=True;         End  Else Label10.Visible:=True  Else Label10.Visible:=True; end;

По выполнению данной процедуры строка в Stringrid остается пустой, а должна заполняться...