[v1s2222]

Если хочешь чтоб можно было работать и с числами и с буквами, то сделай массив типа string. Тогда будет так:

Код:

procedure TForm1.Button7Click(Sender: TObject);
begin
  a[i].n_tel:=edit7.text; // где массив а[i].n_tel типа string
  stringgrid1.cells[k,j]:=a[i].n_tel;
  k:=k+1;
end;

Или делай так:

Код:

procedure TForm1.Button7Click(Sender: TObject);
begin
  a[i].n_tel:=strtointdef(edit7.text, 0);
  stringgrid1.cells[k,j]:=inttostr(a[i].n_tel); //указывает на эту строку
  k:=k+1;
end;