Novamente Sobre Mascara usando string

boa noite!
gostaria de saber como incluir uma string na formatação da mascara pois já tentei de varios modos mas não obtive sucesso

procedure TForm1.DBEdit1Enter(Sender: TObject);
var
CodOperadora: string;
CodCidade : string;
begin
CodOperadora:=´031´;
CodCidade :=´92´;

if DBEdit1.SetFocus then
begin
EditMask:=´(\´+CodOperadora+´-´+´!´+ CodCidade´+´\)´+´9999-9999;1; ´;
end;

end;


o certo seria ficar assim
(031-92)1234-5678

em uma nova edição do campo depois que já foi gravado, na tabela
acontece isto na entrada do foco do DBEdit
031(031-92)1234-5678

pois se eu editar todo o número do telefone ele fica normal
(031-92)1234-5678

desculpe se a explicação não estiver bem detalhada