Lazarus ou Delphi percorrer dbgrid alterar duas tabelas

Estou querendo atualizar tabela cliente e a tabela descricaoapto.
Pensei num loop para fazer alteração cliente, chave estrangeira esta descricaoapto.
zqdescricaoapto.open;
zqcliente.open;
Zqdescricaoapto.first;
while not Zqdescricaoapto.eof do
begin
aqui dentro chamo a função.
dm.cliente.id_cliene:=zqdescricaoapto.dataset.fieldbyname(''''id_cliente'''').asinteger;
dm.cliente.status:=''''Débito'''';
if fnc_alteracliente(''''Alterar'''') then
end;
dm.descricaoapto.next;

Roda, mas não atualiza tabela cliente status. Eu consigo atualizar status, porém preciso
ir atualizando cada linha do dbgrid sendo que se clicar em um button faria esse trabalho.
Não sei não esta rodando esse código.Se alguém puder dar uma luz ficarei agradecido.