procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[2, 0]:= 'Phone Number';
end;
procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol, ARow: Longint; var Value: string);
begin
if StringGrid1.Cells[ACol, 0] = 'Phone Number' then
Value := '!\(999\)000-0000;1';
end;