Fórum exibir resultado de select no dbedit #607051

Como faço para exibir o resultado do meu select em um dbedit ao invés de exibir no dbgrid? já tenho esse código.

if (edit1.Text = '''') then
begin
messagedlg(''Digite um codigo!'',MtInformation,[Mbok],0);
edit1.SetFocus;
end
else if Cb_opcao.ItemIndex = -1 then
begin
Messagedlg(''Escolha Uma Opção de pesquisa!'',MtInformation,[Mbok],0);
abort;
end
else
Begin

dm.SQL_DEVOLUCAO.Close;
dm.SQL_DEVOLUCAO.SQL.Clear;
dm.SQL_DEVOLUCAO.Params.Clear;
dm.SQL_DEVOLUCAO.SQL.Add(''select ID_LOCACAO,COD_LIVRO,TITULO,COD_LEITOR,LEITOR,DEVOLVER,STATUS_LOCACAO,DT_LOCACAO,NOME_USUARIO FROM LOCACAO inner join LEITORES ON LEITORES.ID_LEITOR = LOCACAO.ID_LOCACAO inner join LIVROS ON LIVROS.ID_LIVRO = LOCACAO.COD_LIVRO'');

case Cb_opcao.ItemIndex of
0: begin
dm.SQL_DEVOLUCAO.SQL.Add(''WHERE ID_LOCACAO=:Pcodigo'');
dm.SQL_DEVOLUCAO.Params.ParamByName(''Pcodigo'').AsInteger:=StrToInt(EDIT1.Text);
end;

1: begin
dm.SQL_DEVOLUCAO.SQL.Add(''WHERE TITULO=:Pnome'');
dm.SQL_DEVOLUCAO.ParamByName(''Pnome'').AsString:=Edit1.Text;
end;

end;

End;