Dúvida em SQL!

pessoal existe uma maneira de fazer o processo abaixo descrito usando código SQL ?

BEGIN

While not dm.IBmanifesto.eof do
if dm.IBClientes.locate(´CGC´,dm.IBmanifestoCGC.Value,[]) = true then
Begin
dm.IBManifesto.edit;
dm.IBManifestoPromotor.Value := dm.IBClientesPromotor.Value;
dm.IBManifestoNome.value := dm.IBClientesNome.value ;
i := i + 1;
ProgressBar1.Position := i;
dm.IBManifesto.post;
dm.IBManifesto.next;
end
Else
Begin
dm.IBManifesto.next;
End;
end;