[Nicoman]

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

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

Код:

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 остается пустой, а должна заполняться...