[lmikle]

Ну, что бы меньше переделывать, можно убрать StringGrid поменять заполнение экселя.

Код:

const
  xlCells : Array [1..26] Of String = ('N','R','V','Z',...); // Здесь перечислишь имена ячеек в эксель, которые заполняешь, только имена

...

var
  I : Integer;
begin
  For I := 1 To Min(Length(Edit1.Text),Length(Edit2.Text),Length(xlCells)) Do
    Begin
      XL.Range(xlCells[i] + '12').value := Edit1.Text[i];
      XL.Range(xlCells[i] + '14').value := Edit2.Text[i];
    End;
end;

как-то так.