[Scorpion Rock]

Ative a propriedade "Prepared" do compenente "ComLkUp" pra "True".Reescreva seu código da seguinte forma:procedure TfrmComunidades.MuestraComunidades(Sender: TObject);begin with DM do begin if ComLkUp.ProcedureName <> 'ComunidadesVER;1' then begin
ComLkUp.ProcedureName := 'ComunidadesVER;1';
// Caso tenha algum parâmetro coloque a seguinte linha de código
ComLkUp.Parameters.Refresh;
end;
ComLkUp.ExecProc; end;end;