Copiando a Primeira letra de um registro apenas para um Dbedit

procedure TF_lancamentos.DBEdit5KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key = 13 then
if dbedit8.Text <> '' then
begin
if ZConsulta(F_Dados.Q_cad_pcontas,
'SELECT * FROM cad_pcontas where chamada = '+ dbedit5.Text +
' and origem_pcontas = "Devedora"') = true then
begin
dbedit5.Text := F_Dados.Q_cad_pcontaschamada.AsString;
edit3.Text := F_Dados.Q_cad_pcontasdesc_pcontas.AsString;
dbedit6.Text := copy(F_Dados.Q_cad_pcontasorigem_pcontas.AsString,1,1);
end
else
begin
Application.MessageBox('Conta não existe ou não é Credora!','Aviso do Sistema',mb_ok + mb_iconwarning);
edit3.Clear;
dbedit5.setfocus;
end;
end;
end;

dbedit6.Text := copy(F_Dados.Q_cad_pcontas origem_pcontas.AsString,1,1);

o Comando copy eh o responsavel ele vai copiar o primeiro caractrer do campo origem_pcontas de acordo com a posição que eu mandar 1,1); para o Dbedit 6.text


Creditos Marco