Код:
//здесь неправильно:
Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,1]:=MaskEdit1.Text;
Индексы в Cells[ACol, ARow], т.е. сначал индекс колонки, затем строки, а НЕ Cells[ARow, ACol].
И еще надо бы проверить, а заходим ли мы вообще по этому громоздкому условию чтоб сделать присвоения ячейкам.