DBLookupComboBox

Galera, alguém poderia me dar uma luz!?

Tenho o seguinte código no evento Click do Botão:

procedure TForm2.Button4Click(Sender: TObject);

var Arquivo: TStringList;

begin

 Arquivo := TStringList.Create;
 try
 Arquivo.Add('OD');
 Arquivo.Add('N');
 Arquivo.Add('D6');
 Arquivo.Add('A550,197,0,4,1,1,N,' + DBLookupComboBox1.KeyValue);
 Arquivo.Add('A100,282,0,4,1,1,N,' + DBEdit2.Text);
 Arquivo.Add('A191,349,0,5,1,1,N,' + DBEdit3.Text);

Arquivo.Add('A191,197,0,5,1,1,N,' + DBLookupComboBox2.KeyValue);

 Arquivo.Add('A190,51,0,5,1,1,N,' + DBEdit5.Text);
 Arquivo.Add('A430,500,0,5,1,1,N,' + DBEdit6.Text);
 Arquivo.Add('A35,520,0,2,1,1,N,' + DBEdit7.Text);
 Arquivo.Add('B90,570,0,1E,3,10,70,B,' + DBEdit11.Text);
 Arquivo.Add('A40,753,0,2,1,1,N,' + ' Av. Sulplast, n. 1969 - Distr. Industrial - Rio Claro - SP ');
 Arquivo.Add('P1');
 Arquivo.SaveToFile('C:\Arquivo.txt');
 finally
 Arquivo.Free;
 end;
end;

Meu problema esta na linha em vermelho.. No meu banco de dados esse campo que é preenchido do DBLookUpCombobox esta como decimal! Como tenho que fazer a conversão para poder gravar?

O meu DBLookupComboBox1 que pega é um char.

Tentei converter em String o segundo, porem sem sucesso...

Obrigado!