Gravação Usuário

Olá amigos, blz? Na minha aplicação, eu criei uma tela de cadastro de USUÁRIOS para utilizarem o sitema. A tabela de Usuários é composta pelos campos ID, NOME, COD_DEPTO, DEPTO, LOGIN, SENHA. Eu inseri um combobox onde, ao clicar no botão novo, é preenchido automaticamente com dados referentes a COD_DEPTO e DEPTO, que são originários da tabela DEPARTAMENTO, como segue abaixo:

procedure TfrmCadUsuarios.btnNovoClick(Sender: TObject);
begin
inherited;
...

with dmDepartamento.cdsDepto do
begin
close;
open;

while not Eof do
begin
cbbxUnidade.Items.Add(FieLDByName(´COD_DEPTO´).Text + ´ - ´ +
FieldByName(´DEPTO´).Text);
Next;
end;
end;

end;


A minha dúvida está na gravação, ou seja, se eu tenho um combobox que está recebendo dados de dois campos, como faço para gravá-lo na tabela de Usuários?

Eu tinha pensado em usar a função copy.

var
TD : TTransactionDesc;
Codigo : string;
Unidade : string;

begin
inherited;

Codigo := copy(cbbxDepto.Text, 0, 2);
Depto:= copy(cbbxDepto.Text, 4, 35);

try
...
with dmUsuarios.cdsUsuarios do
begin
...

FieldByName(´COD_DEPTO´).AsInteger := strtoint(Codigo);
FieldByName(´DEPTO´).AsString := Depto;
...

except
on E : Exception do
ShowMessage(E.Message);
...

Concluindo, o sistema não está pegando o cod. do depto e depto que estão no combobox e gravando na tabela.

Gostaria de saber qual seria a melhor forma de se resolver este problema.

Fico no aguardo.

Um abraço a todos.

Rogério