Invalid Parameter

Sr. Josefar Silva.

Faz assim que você pode até reaproveitar a Query para outro comando depois se quiser.

With DM.cdsUsu do
begin
close;
sql.clear;
sql.add('Select * from tabusu');
sql.add('where id = :Pid');
ParamByName('Pid').asString := edtAlt.Text;
Open;
// Aqui você vai verificar se ele trouxe algum resultado da consulta
if Dm.cdsUsu.Recordcount = 0 then
begin
// Se não encontrou nenhum registro ele envia msg para o usuário informando.
ShowMessage('Nenhum registro encontrado para efetuar a operação!');
Exit;
end
else
begin
// Se encontrar ele vai fazer o comando de gravar numa outra query de um outro modo.
With Dm.cdsUsuGravar do
begin
close;
sql.clear;
sql.add('insert into tbusu');
sql.add('(campo1, campo2, campo3)'); // preencha os campos requeridos pelo menos da tabela.
sql.add('values');
sql.add('(:Pcampo1, :Pcampo2, :Pcampo3)'); // Aqui você informa os parametros que receberão os dados dos edits e passaram para os campos.
ExecSQL;
end;
end;
end;

Só uma dica a mais....

Cuidado com a sua nomenclatura de desenvolvimento, não tente evitar trabalho de digitação se não só você vai entender o que está desenvolvido, isso é prejudicial mais tarde, por exemplo:

campos: stConta (Status da Conta)
Tabela: tbCli (Tabela de Cliente) -- Observe que parece com a sua tbUsu, mas seria cliente pessoa fisica ou juridica? seria cliente ou clima? ou qualquer coisa que comece com cli? eu juro pode atrapalhar muito outra pessoa de ajudar você mais tarde.
A não ser que você queira desenvolver e logo depois criar um documento com todas as suas nomenclaturas de padronização para poder alguém ler antes de tentar te ajudar, coisa que eu realmente não faria se estivesse tudo minimizado assim porque é muito trabalhoso, fora isso o senhor está de parabéns, veio do CLIPER?

Abraço, espero ter ajudado.