Fórum Baixar Lançamentos Selecionados #348125

Boa Tarde Amigos(as)

Tenho o seguinte problema...

Na minha aplicação coloquei um DbGrid vinculada a minha tabela de pagamentos. O que eu quero fazer é o seguinte, quero selecionar alguns registros e baixar todos os selecionados. mudando o Status para baixado...

o que eu estava fazendo:
[i:b26c31fc98]dm.EDLAN.First;
While not dm.EDLAN.Eof do
begin
if FManutencaoPagamento.DBGrid1.SelectedRows.IndexOf(dm.EDLAN.BookMark) >= 0 then
begin
if dm.EDLANSTATUS.Value = ´Em Aberto´ then
begin
dm.EDLAN.Edit;
dm.EDLANSTATUS.Value := ´Baixado´;
dm.EDLANDATALIBERACAO.Value := Date;
dm.EDLAN.Post;
end else
begin
Pagamento := dm.EDLANCODPAGDIREITO.Value;
ShowMessage (´Verifique o Status do Pagamento Nº ´ + IntToStr (Pagamento));
end;
end;
dm.EDLAN.Next;[/i:b26c31fc98]

o problema desse codigo é q minha tabela tem muitos registro ai ele vai do primeiro até o ultimo testando se esta selecionado no DbGrid...

Tem outra maneira de ele ir direto para os selecionados e alterar o status?

Aguardo e agradeço....