Sheet.Cells[12, 91] := Edit1.Text; Sheet.Cells[15, 20] := Edit2.Text; Sheet.Cells[19, 91] := Edit3.Text;