Problemas com o campo virtual

Oi pessoal, eu to com um problema com meu campo virtual. Ele simplismente nao aparece, rsrs. Vamos as informações:

Primeiro de tudo é que to salvando o projeto no Dropbox que é um serviço da nuvem, então nao sei se esse pode ser o problema.

Eu tenho um formulário de dados das maquinas dos clientes, um deles é a empresa a qual o computador pertence, ai que vem o problema

Eu criei um LookUpComboBox para o usuario poder selecionar a empresa que ja esta cadastrada em outro formulario, ela ta listando normalmente, porem quando o usuario escolhe a empresa o que aparece na tabela é o codigo da empresa, sendo assim eu criei um campo virtual com as seguintes configurações:

Nome: Empresa

Type: String

Size: 30

LookUp

Key Field: "DAC_EMP"(seria o campo onde aparece a empresa a qual o computador pertence)

Dataset: "tbl_empresa" (nome da tabela onde estao armazenadas as empresa)

Lookup Keys: "EMP_COD" (é onde coloco o codigo de cada empresa, que tambem uso como campo chave)

Result Field: "EMP_NOME" (dentro da tabela de empresas é onde fica armazenado o nome das empresas)

Ai eu coloquei ela no DBGrid direitinho, mas quando eu seleicono uma empresa no meu ComboBox, o campo virtual nao é preenchido no meu DBGrid, esse é o problema, alguem pode me ajudar?

Espero que tenha dado pra entender, de todas as formas eu também vou deixar o codigo do Formulario

>

unit UDadosEmpresas;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, IBCustomDataSet, IBTable, DBCtrls, StdCtrls, Mask, ExtCtrls,
Grids, DBGrids;

type
TFormDadosEmpresas = class(TForm)

 DBGrid1: TDBGrid;
 DBNavigator1: TDBNavigator;
 Label1: TLabel;
 Label2: TLabel;
 Label3: TLabel;
 Label4: TLabel;
 Label5: TLabel;
 DBEdit1: TDBEdit;
 DBEdit2: TDBEdit;
 DBEdit3: TDBEdit;
 DBEdit4: TDBEdit;
 tbl_auxdadosempresas: TIBTable;
 tbl_auxdadosempresasDAC_COD: TIntegerField;
 DBEdit5: TDBEdit;
 DBLookupComboBox1: TDBLookupComboBox;
 procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
 private
 { Private declarations }
 public
 { Public declarations }
 end;

var
FormDadosEmpresas: TFormDadosEmpresas;

implementation

uses UDM_Dados;

{$R *.dfm}

procedure TFormDadosEmpresas.DBNavigator1Click(Sender: TObject;
 Button: TNavigateBtn);
 var ultcod:integer;

begin if dm_dados.ds_dadosempresas.State in [dsInsert] then begin

 tbl_auxdadosempresas.open;
 tbl_auxdadosempresas.last;
 ultcod:=tbl_auxdadosempresasDAC_COD.Value+1;
 dm_dados.tbl_dadosempresasDAC_COD.Value:=ultcod;
 tbl_auxdadosempresas.close;
 end;
end;

end.